Problem mit einem Zeiger...

[Muehle]

Ich glaube dein Problem kommt eher daher, das
du zu deiner Combo keinen Wert ausgewählt hast
-> cbList.ItemIndex=-1
und du bekommst eine Fehlermeldung.

Falls du Probleme mit Zeigern hast sinniere mal über diesen Code :

procedure test(testObj:TProjektLeistung; PtrObj:Pointer);

procedure TIrgendEinForm.test(testObj:TObject;PtrObj:Pointer ) ;

var p1,p2:^TObject;

begin
p1:=PtrObj;
p2:=Pointer(testObj);
assert(p1=p2);
end;

Aufruf erfolgt so :

o1:TObject;

test(o1,Pointer(o1));