Moin,
wenn FindComponent die Komponente nicht findet, wird ein nil-Zeiger zurückgegeben.
Du solltest also immer prüfen, ob FindComponent auch eine Komponente liefert.
also...
Delphi-Quellcode:
var Image:TImage;
begin
Image:=Findcomponent('im_st'+ InttoStr(1) + 'nr1'+ InttoStr(Stapel[1].Anzahl)) as TImage;
if assigned(Image) then
showmessage(Image.name);
end;
Ausserdem solltest du, wenn du schon Text mit einer ShowMessage ausgibst vielleicht den String ausgeben, den du an FindComponent übergibst, dann würdest du nämlich auch bestimmt sehen, dass die Komponente du du finden möchtest nicht existiert.
MfG
Thorsten