Delphi - funcion

necesito saber alguna funcion en delphi para que cuando se ejecute el formulario en un edit se capture la pocicion del mouse
un ejemplo es como la pantalla del unit1 en la parte de abajo aparece la pocicion del mouse.

la posicion del mouse o del cursor?
por lo que decis de la pantalla de la unit1, esto te da la pos x y del cursor por ej de un memo:

var X,Y : Integer;
Lns:string;
begin
X := 0;
Y := 0;
Y := SendMessage( Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0) ;
X := Memo1r.SelStart - SendMessage(Memo1.Handle,EM_LINEINDEX,Y, 0) ;
Lns:=IntToStr(Y + 1) + ':' + IntToStr(X + 1) ;

// Para mas informacion de Showmessage,
//EM_LINEFROMCHAR,EM_LINEINDEX consulta la ayuda windwos SDK