Files Delphi

Title: Rename directory
Use MoveFile to rename existing directory.
procedure TForm1.Button1Click(Sender: TObject);
var
st1, st2: PChar;
begin
st1:='c:\OldDirectory';
st2:='c:\NewDirectory';
MoveFile(st1, st2);
end;