Mehrere If-Abfragen

[Matze33]

Japp, hab ich noch mal Glück gehabt, bevor ich wieder noch blöder dagestanden hätte^^

Wie dem auch sei, hab jetzt wieder eine Stelle, wo ich nicht weiter komme.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  wiederholungen:=wiederholungen+1;

  if Image1.Visible=True Then
  begin
    if wiederholungen<=14
    Then Image1.Top:=Image1.Top-wert;
    if wiederholungen>=15
    Then Image1.Top:=Image1.Top+wert;
    if wiederholungen=28
    Then begin Timer1.Enabled:=False; wiederholungen:=0; end;
  end;

  if Image2.Visible=True Then
  begin
    if wiederholungen<=14
    Then Image2.Top:=Image2.Top-wert;
    if wiederholungen>=15
    Then Image2.Top:=Image2.Top+wert;
    if wiederholungen=28
    Then begin Timer1.Enabled:=False; wiederholungen:=0; end;
  end;

  If (Image1.Left>=Panel1.Left) and (Image1.Left<=Panel1.Left+Panel1.Width)
  and (Image1.Top+Image1.Height=Panel1.Top)
  Then begin
    Image1.Top:=Panel1.Top-Image1.Height;
    Timer1.Enabled:=False;
  end;

  if Image1.Visible=True
  Then Image2.Top:=Image1.Top;
  if Image2.Visible=True
  Then Image1.Top:=Image2.Top;
end;

Das ist das, was bei einem Sprung (VK_UP) passiert. Aber die Figur (das Image1) springt jetzt immer wieder auf den Boden zurück, also er bleibt nicht auf dem Kasten (Panel1) stehen. Kann mir wer sagen, wieso? (den Smiley musste ich ausprobieren )

Edit: Noch zur Erläuterung: Image1 ist die Spielfigur, die nach rechts guckt und Image2 das ganze gespiegelt, also nach links.