scusami il ritardo alka...

ho provato a fare in questo modo:

procedure TForm23.BitBtn2Click(Sender: TObject);
begin
opendialog1.initialdir := ''+PerLocCar+'';
if opendialog1.Execute then
begin
SaveDialog1.FileName := ExtractFileName(opendialog1.filename);
SaveDialog1.InitialDir := 'A:';
SaveDialog1.Execute;
end;
end;

sembra andare tutto bene pero quando leggo il floppy non tova niente
dove sbaglio grazie?

saluti