Source Code Rename File dengan Delphi7

berikut ini adalah source code untuk merename file dengan delphi7
sebelumnya buat tampilan seperti ini

keterangan :
komponen yang dibutuhkan:
edit(2) "di pallete standard"
button(2) "di pallete stadard"
label(1) "di pallete standard"
open dialog(1) "di pallete dialogs"

sourcenya untuk button1

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='';
  if OpenDialog1.Execute then
  begin
    Edit1.Text:=OpenDialog1.FileName;
    Edit2.Text:=Edit1.Text;
  end;


sourcenya untuk button2
procedure TForm1.Button2Click(Sender: TObject);
begin
if (Edit1.Text<>'')and(Edit2.Text<>'') then
  if RenameFile(Edit1.Text, Edit2.Text) then Label1.Caption:='Rename OK'

end;

semoga bermanfaat.