Selbst Gelöst: Übergabe eines TPictures an class funzt nicht

[SimonRap]

Hi Leute,
ich hab mir den Kopf zerbrochen, aber ich finde einfach keine Lösung...
Ich habe eine Class:
(alles gekürzt und umbenannt)

Delphi-Quellcode:

type
 Tclass=CLASS
    Img1,Img2,Img3:TPicture;
    Obj:TObject;
    procedure state(n:INTEGER);
    end;
//und die procedure
procedure TClass.state(n:INTEGER);
begin
  case n of
    1:(obj as TImage).Picture:=IMG1;
    2:(obj as TImage).Picture:=IMG2;
    3:(obj as TImage).Picture:=IMG3;
  end;
end;
//und
var xxx:TClass

Ich hab noch 3 TImages, wo win Picture schon drin ist (alle verschiedene bilder) mit den namen z.B. IMG_1,IMG_2,IMG_3...
Und dazu ein leeres TImage: image1 (also leer im sinne von kein image1.picture geladen)
An einer Stelle meines Programmes soll er folgendes tun:

Delphi-Quellcode:

xxx:=TClass.Create;//also das ist eigentlich beim form.create, aber damit ihr wisst, dass es das auch gibt^^
xxx.Img1:=img_1.Picture;
xxx.Img2:=img_2.Picture;
xxx.Img3:=img_3.Picture;
xxx.state(strtoint(edit1.text));
//und noch paar weitere Sachen, aber dazu kommt es eh nicht...

Also:
Als Ergebnis krieg ich immer, dass Image1 kein Bild enthält...
Beim Debuggen merkte ich, dass das Übergeben von img_1 zu xxx.IMG1 schon nicht funktioniert...
Ich finde aber einfach kein Fehler...

kann mir jemand nen Tipp geben, woran das liegen könnte??
MfG Simon