Exemplo de como pegar o nome de um objeto ou janela

{Faça um teste com isso. Coloque um Timer, um Label, dois Edit e um Button.

No OnTimer coloque:}

var
p: TPoint;
i: THandle;
begin
GetCursorPos ( p );
i := WindowFromPoint ( p );
Label1.caption := intToStr ( i );
end;

//No OnClick do botão coloque

var
i, x: integer;
s: array [ 0..2047 ] of char;
begin
i := strToInt ( Edit1.text );
GetWindowText ( i, s, x );
Edit2.text := s;
end;

{Para isso, crie um formulário pequeno e deixe-o em uma região discreta e passe o mouse sobre os "componentes" da calculadora. Você verá o caption do label se modificar com o Handle do window sob o mouse. Para obter o texto, use esse handle no primeiro edit1 clique no Botão para pegar o texto e trazê-lo para o edit2.}