Szukanie i zmiana | Współrzędne myszki

<font color="black">Mam funkcje wyszukującą program po jego Captionie:

function szukaj : string;
var
H : THandle;
begin
H := FindWindow(nil,'MainForm');
end;

... jak moge teraz np. zmienic captiona tej formy [???] . Na początku próbowałem zrobić tak: H.Caption := 'ble ble'; -wiem że głupio ale trzeba próbować</span>. Prosił bym o mały kodzik.

2.)
Mam kod przechwytywania położenia myszy na ekranie monitora:

function mysz : string;
var
P : TPoint;
begin
GetCursorPos(P);
ShowMessage(IntToStr(P.X, P.Y));
end;

chciałbym by powiedzmy co 5 sekund wyskakiwało okienko z zaaktualizowaną pozycją myszy. Nie mówcie czego mam użyć bo pewnie odeślecie mnie do timera czy czegoś takiego. Chciałbym zobaczyć kod takiego programiku.

2.)
Mam kod przechwytywania położenia myszy na ekranie monitora:

function mysz : string;
var
P : TPoint;
begin
GetCursorPos(P);
ShowMessage(IntToStr(P.X, P.Y));
end;

chciałbym by powiedzmy co 5 sekund wyskakiwało okienko z zaaktualizowaną pozycją myszy. Nie mówcie czego mam użyć bo pewnie odeślecie mnie do timera czy czegoś takiego. Chciałbym zobaczyć kod takiego programiku.

Chcesz zobaczyć taki kodzik?? oto on (uzywam CTRL+C i CTRL+V )

//wrzuc to do Timera
function mysz : string;
var
P : TPoint;
begin
GetCursorPos(P);
Label1.Caption:=IntToStr(P.X, P.Y);//Nie chcialbyc co np sekunde zamykac MessageBoxa
end;

Mam funkcje wyszukującą program po jego Captionie:

function szukaj : string;
var
H : THandle;
begin
H := FindWindow(nil,'MainForm');
end;

... jak moge teraz np. zmienic captiona tej formy [???] . Na początku próbowałem zrobić tak: H.Caption := 'ble ble'; -wiem że głupio ale trzeba próbować Prosił bym o mały kodzik.

SetWindowText(H,'Nowa nazwa');