Mouse - obtento posicao atual

function PosMouse(AForm: TCustomForm): TPoint;

begin

  GetCursorPos(Result);

  Windows.ScreenToClient(AForm.Handle, Result); // Converte para a posicao relativa ao form

  // Se quiser relativa a tela remova a last line

end;