Переименование папки через "Button"

[pinaszxc]

Подскажите код для "Button" что бы при на ее нажатии папка с указаном в коде путем переименовалась в новое название.

В форме 2 кнопки

Вот на скриншоте пример

http://i036.radikal.ru/1201/97/865d3c5867d0.bmp

[Mad_Cat]

RenameFile(Path + '\' + Name, Path + '\' + ' новое имя');

[pinaszxc]

Сообщение от Mad_Cat

RenameFile(Path + '\' + Name, Path + '\' + ' новое имя');

Благодарю за быстрый ответ

у меня получился такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFile(Path + 'C:\World_of_Tanks\res\' + speedtree, Path + '\' + 'speedtreefix')
end;

end.

Но что то не компилиться Delphi7
Выдает ошибку:

[Error] Unit1.pas(28): Undeclared identifier: 'Path'
[Error] Unit1.pas(28): Undeclared identifier: 'speedtree'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Mad_Cat]

procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFile('C:\World_of_Tanks\res\speedtree','C:\World_of_Tanks\res\speedtreefix')
end;