Как изменить направление формы при столкновении с другой формой в ДЕЛФИ

[Николай1]

Народ подскажите пожалуйста как сделать чтобы форма при столкновении с другой формой меняла свое направление на противоположную? В ДЕЛФИ
а сама задача была заключена чтобы мячь отбивался от стенок и лапты...
вот код

var
xr, yr : integer; //ñêîðîñòü ïî îñè õ è ó
const
dv1 = 3; //cêîðîñòü îòðàæåíèÿ îò ñòåíû
dv2 = 1; //îò èãðîêà
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If key=37 then Lapta.Left :=Lapta.Left-20;//âëåâî
If key=39 then Lapta.Left :=Lapta.Left+20;//âïðàâî
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
x, y, h, w, x0, y0, h0, w0 : integer;
begin
Miach.top :=Miach.top +1;
If Miach.top >300 Then Miach.top :=-30;

if y0 < 1 then //oòðàæåíèå îò âåðõíåé ñòåíû
begin
Miach.Top := 1;
yr := Abs(yr+dv1);
if xr>0 then xr := xr+3
else xr := xr - 3;
end;
x := Lapta.Left;
y := Lapta.Top;
w :=Lapta.Width;
h :=Lapta.Height;
x0:=Miach.Left;
Y0:=Miach.Top;
w0:=Miach.Width;
h0:=Miach.Height;
if(x+w>x0) and (y+h>y0)
and
(x<x0+w0) and (y<y0+h0) then
Miach.top:=Miach.top+5
else Miach.top:=Miach.top-5;
end;

end.