Logo des Users vom Anmeldebildsch. holen, aber wie ?

[Jowo]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
    user.Caption:=GetCurrentUserName;
    Image1.Picture.LoadFromFile('hintergrund.jpg');
    zeit.Caption:=DateToStr(date)+'   '+TimeToStr(time);
    Memo1.Lines.Clear;
    Memo1.Lines.LoadFromFile('Liste_dateinamen.txt');
end;