PING PONG soll abprallen

[Intapper]

Hi @ all,
In unserem Informatikkurs machen wir gerade das Projekt "Ping Pong"
Bis jetzt haben wir geschafft den Ball zu zeichnen und zu bewegen.
Das jetztige Problem von mir ist, dass ich den Ball nicht wenden kann

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  position.X:=position.X+1;
  position.Y:=position.Y+1;
  refresh;
  if (position.X = 2) and (position.Y = 2) then
  Begin;
  position.Y:=position.Y-20;
  position.X:=position.X-20
  end;
  canvas.Brush.Color:=clRed;
  Ball_zeichnen;
end;

da liegt das Problem !!! Ich weiß ja auch warum, ich kenn aber bisher keine andere Möglichkeit um die Richtung vom Ball zu ändern.
Ich wäre froh, wenn ihr mir helfen könnt.

mfg Intapper