Variable

[Wheelie]

TComponent

So muss deine Prozedur aussehen, damit alles funktioniert:

Delphi-Quellcode:

procedure ShowFighter(Image, Richtung: String);
var Fighter: TComponent;
begin
  Fighter := FindComponent(Image);
  (Fighter as TImage).Picture.LoadFromFile('Bilder\' + Richtung + '.bmp');
end;