Fórum Function muito simples mais não sei pq ta errado #163943

Procedure verifica;
var x : byte;
begin
x:= 0;
if form1.BT1.Left > form1.BT2.Left + 75 then x:= 1;
if form1.BT1.Top > form1.BT2.Top + 25 then x:= 1;
if form1.BT1.Left + 75 < form1.BT2.Left then x:= 1;
if form1.BT1.Top + 25 < form1.BT2.Top  then x:= 1;
if x = 0 then form1.Canvas.TextOut(10,10,´colidiu´)
   else form1.Canvas.TextOut(10,10,´          ´);
//ou seja ele cercou o objeto e testa se eles não se tocam
// se todos os testes falharem é pq eles colidiram
end;

e um timer pra mover um coponente 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getkeystate(vk_left)<0 then bt1.Left:=bt1.Left-2 ;
if getkeystate(vk_Right)<0 then bt1.Left:=bt1.Left+2;
if getkeystate(vk_up)<0 then bt1.top:=bt1.top-2;
if getkeystate(vk_down)<0 then bt1.top:=bt1.top+2;
verifica;
end;

function verifica: boolean;
begin
if (form1.BT1.Left > form1.BT2.Left + 75) and
   (form1.BT1.Left + 75 < form1.BT2.Left) and
   (form1.BT1.Top + 25 < form1.BT2.Top ) and
   (form1.BT1.Top > form1.BT2.Top + 25) then result:= false;
end;

e pra chamar

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getkeystate(vk_left)<0 then bt1.Left:=bt1.Left-2 ;
if getkeystate(vk_Right)<0 then bt1.Left:=bt1.Left+2;
if getkeystate(vk_up)<0 then bt1.top:=bt1.top-2;
if getkeystate(vk_down)<0 then bt1.top:=bt1.top+2;
verifica;
if verifica = false showmessage(´colidiu´);
end;