как узнать имя папки?

[KWNlnc]

Скажем я делаю так

Edit1.Text := C:\Program Files
Form1.Caption := Edit1.Text; имя папки = Program Files

если

Edit1.Text := C:\Program Files\Borland\Delphi7
Form1.Caption := Edit1.Text; имя папки = Delphi7

в гугле искал. ничего не нашел (((

[quit]

unit SysUtils;
....

function ExtractFileName(const FileName: string): string;
var
  I: Integer;
begin
  I := LastDelimiter(PathDelim + DriveDelim, FileName);
  Result := Copy(FileName, I + 1, MaxInt);
end;

Соответственно

Form1.Caption := ExtractFileName(Edit1.Text);