Wunderbar! Danke jetzt funktioniert es.
Ich erlag dem Irrtum das ich es bereits im var-Bereich mit User: TUser; erledigt habe.
Code:
procedure TSDIAppForm.FormCreate(Sender: TObject);
begin
User:=TUser.Create;
end;
Ich habe das jetzt so gemacht und es funktioniert endlich.
Vielen Dank!
Vergiss das Freigeben des Objekts mit .Free bei Programmende oder wann immer nötig nicht.