Huch so viele schon
Delphi-Quellcode:
procedure TFruit.SetForm(const Value : TForm1);
var
f1 : TForm1;
begin
t := nil; // Nicht mal das geht
f1 := Value; // Das würde gehen
t := Value; // und das ist der Grund für den Eintrag
end;
Also wenn // t := nil;
dann kann ich das Object mit Value an f1 übergeben
nur t in private deklariert das
geht gar nicht dann gibt es eine EAccessViolation Schutzverletzung.
Ob das elegant ist, ist erst mal egal.
Es geht ja auch darum mal was anderes zu probieren und zu lernen.
Ich habe die Komponente comport411f
eine tolle Freeware Komponente wo das funktioniert und ich verstehe nicht warum
das hier nicht funktioniert.
Wetten hier hat jemand vergessen seine TFruit-Instanz zu erzeugen, zuzuweisen oder Dergleichen? 
Immer schön, wenn das Wichtigste fehlt und man erst mühsam danach fragen muß.
Und am Ende hatte es rein garnichts mit der ursprünglichen Frage zu tun.