voila, tout est dans le titre.
 
je debute, masi je suis confiant
 
mercu d'avance

c'est possible ...
par contre mes bookmarks sont au boulot

et tu bosses pas a cette heure ci ??
 
ben tant pis

Dans ce style la  :
 
 function Username: string;
var
  buffer: array[0..80] of Char;
  len: DWORD;
begin
  len := Sizeof(buffer);
  GetUsername(buffer, len);
  Result := buffer;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
    form1.Caption :=  ' Salut '+ Username;
end;