function CheminSystem:String; var Nom : Array [0..Max_Path] of Char; begin GetSystemDirectory(Nom,Sizeof(Nom)); Result:=Nom; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=CheminSystem; end;