Image bewegen

[Jonski]

Nein ich hab diese Kollisionskontrolle:

Delphi-Quellcode:

Punkt_HochRunter:=x;
Punkt_LinksRechts:=y;

if Image1.Left = Image2.Left +30 then
  begin
  Punkt_LinksRechts:=1;
  end;

if Image1.Left = Image3.Left -50 then
  begin
  Punkt_LinksRechts:=2;
  end;

if Image1.Top = Image4.Top +30 then
  begin
  Punkt_HochRunter:=1;
  end;

if Image1.Top = Image5.Top -50 then
  begin
  Punkt_HochRunter:=2;
  end;

x:=Punkt_HochRunter;
y:=Punkt_LinksRechts;

if Punkt_LinksRechts = 1 then
  begin
  Image1.Left:= Image1.Left +10;
  end;

if Punkt_LinksRechts = 2 then
  begin
  Image1.Left:= Image1.Left -10;
  end;

if Punkt_HochRunter = 1 then
  begin
  Image1.Top:= Image1.Top +10;
  end;

if Punkt_HochRunter = 2 then
  begin
  Image1.Top:= Image1.Top -10
  end;