procedure TForm1.operations(Sender: TObject);
begin
try
{ Copy file from source file path to destination file path }
if Sender = btnCopy then
TFile.Copy(edSourcePath.Text, edDestinationPath.Text);
{ Move file from source file path to destination file path }
if Sender = btnMove then
TFile.Move(edSourcePath.Text, edDestinationPath.Text);
{ Delete file from source file path }
if Sender = btnDelete then
TFile.Delete(edSourcePath.Text);
except
MessageDlg('Incorrect path', mtError, [mbOK], 0);
Exit;
end;
end;
