Achando as coordenadas x e y no Delphi 7

Boa tarde galera, fiz mais uma video aula ensinando a achar as coordenadas x e y do mouse na tela, façam bom proveito.

Timer 1

var 

p: Tpoint; 

s: string;

begin

GetCursorPos(p);

s:= inttostr(p.x);

Label3.Caption := s;

end;

Timer 2

var 

p: Tpoint; 

s: string;

begin

GetCursorPos(p);

s:= inttostr(p.y);

Label4.Caption := s;

end;