Get the current directory.

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=GetCurrentDir;
end;