Sende filer forskellige steder hen?

Prøv at putte en OpenDialog på din form + en buttom og indsæt
nedenstående kode i Button\'s clickevent

procedure TForm1.Button1Click(Sender: TObject);
var
  SaveName : String;
  FileExt : PChar;
  DitFilNavn : String;
begin
  if OpenDialog1.Execute then
  begin
    FileExt := PChar(ExtractFileExt(OpenDialog1.FileName));
    StrUpper(FileExt);
    if FileExt = \'.MP3\' then
    begin
      SaveName := \'C:\\BibForMp3\\\'+ExtractFileName(OpenDialog1.FileName);
      ShowMessage(SaveName);
    end;
    if FileExt = \'.AVI\' then
    begin
      SaveName := \'C:\\BibForMp3\\\'+ExtractFileName(OpenDialog1.FileName);
      ShowMessage(SaveName);
    end;
  end;
end;

Er løsningen o.k. eller har du brug for yderligere hjælp ?