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;