[xelip]

procedure TForm1.Copiar1Click(Sender: TObject);
begin
if OpenDialog1.Execute then MyCopy.ExistFile := OpenDialog1.FileName;
end;

procedure TForm1.Pegar1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
MyCopy.NewFile := SaveDialog1.FileName;
MyCopy.Copy;
end;
Memo1.Lines.Add(MyCopy.ExistFile);
Memo2.Lines.Add(MyCopy.NewFile);
end;


MyCopy es una clase donde implemento copyfile, eso esta ok el problema es en el evento pegar