Copy Delete File

procedure TForm2.Button1Click(Sender: TObject);
begin
CopyFile(Pchar(Edit1.Text ) , pchar(Edit2.Text ) , false );
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
DeleteFile(Edit1.Text) ;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
MoveFile(Pchar(Edit1.Text ) , pchar(Edit2.Text) ;
end;