something like this?

[code=pascal]
procedure TForm1.Button1Click(Sender: TObject);
var filepath, pictureFileName, fileToCopy : string;
begin
filepath := ExtractFilePath(application.ExeName);
if (openPictureDialog1.Execute) then
begin
fileToCopy := openPictureDialog1.Filename;
pictureFileName := ExtractFileName(openPictureDialog1.Filename);

if copyFile(pchar(fileToCopy), pchar(filepath+pictureFileName),true) then
messagedlg('file succesfully copied', mtinformation, [mbok],0)
else
messagedlg('file was not copied!', mterror, [mbok],0)
end;
end;
[/code]