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;