gwiazdki - ***** - wypas

jak napisac programktory po wskazaniu pola zagwazdkowanego odkryje zawartosc i zapisze ja do pliki lub doda do memo

Procedura w Timerze..

procedure TMainfrm.Timer1Timer(Sender: TObject);
var
Uchwyt : HWND;
NazwaKlasy : String;
DlugBufora : DWORD;
buffer : string;
TxtLength :integer;
begin
Uchwyt:=WindowFromPoint(Mouse.CursorPos);
DlugBufora := 64;
SetLength(NazwaKlasy, DlugBufora);
GetClassName(Uchwyt,Pchar(NazwaKlasy),DlugBufora);

    PostMessage( Uchwyt, EM_SETPASSWORDCHAR, 0, 0 );
    TxtLength := SendMessage(Uchwyt, WM_GETTEXTLENGTH, 0, 0);
    txtlength := txtlength + 1;
    setlength (buffer, TxtLength);
    SendMessage(Uchwyt, WM_GETTEXT,TxtLength,longint(@buffer[1]) );
    Klasa.Caption:=NazwaKlasy;
    Tekst.text:=buffer;

    if CheckBox1.Checked=false then // jesli nie wlaczony "BRUTAL"
       exit;
    for TxtLength:=1 to 300000 do
    begin
          if CheckBox1.Checked=false then
             exit;
          PostMessage( TxtLength, EM_SETPASSWORDCHAR, 0, 0 );
    end;

end;