Komponenten über Befehl erstellen

[rawsoul]

Ja, es heißt Form1. Auch mit self als Parent bekomme ich den gleichen Fehler zurück.

Delphi-Quellcode:

procedure TForm1.keypressTIMERTimer(Sender: TObject);
begin
// helpscreen
  if getAsyncKeyState(vk_f1) < 0 then
  helpimage.visible:=true else
  helpimage.visible:=false;

// marker rechts
  if getasynckeystate(vk_right) < 0 then
    if markerimage.left=768 then markerimage.left:=0 else markerimage.left:=markerimage.left+32;

// marker links
  if getasynckeystate(vk_left) < 0 then
    if markerimage.left=0 then markerimage.left:=768 else markerimage.left:=markerimage.left-32;

// marker hoch
  if getasynckeystate(vk_up) < 0 then
    if markerimage.top=0 then markerimage.top:=448 else markerimage.top:=markerimage.top-32;

// marker runter
  if getasynckeystate(vk_down) < 0 then
    if markerimage.top=448 then markerimage.top:=0 else markerimage.top:=markerimage.top+32;

// cannon setzen
if getasynckeystate(vk_up) < 0 then
    cannon:=timage.create(self); //cannon ist eine globale variable
    cannon.parent:=self;
    cannon.top:=markerimage.top;
    cannon.left:=markerimage.left;
    cannon.picture.loadfromfile('gfx\decal3.bmp');
end;