Я пытался разными способами скопировать / клонировать файл и вставить его в другой каталог, это был уникальный способ, который выдал только одну ошибку
procedure TDelForm.moveFileClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
edit1.Text:=OpenDialog1.FileName;
SaveDialog1.FileName:=OpenDialog1.FileName;
end;
if SaveDialog1.Execute then
edit2.Text:=SaveDialog1.FileName;
MoveFile(pchar(edit1.Text), pchar(edit2.Text));
end;
Unit1.pas (46): E2066 Отсутствует операторили точка с запятой
Unit1.pas (46): E2014 Ожидается оператор, но найдено выражение типа 'TButton'