Помогите написать программу о перехвате данных с формы

[brato4karik]

Добый день есть прога на ней поле мемо в тоторое выводяться даные каждую секунду добаляеться строка мне необходимо написать прогу котора могла бы перехватывать данные с поля мемо и записывла их в файл, помогите с той частью котора прехватывате данные, я знаю хендл главного окна и хендл поля а дальше тупик,

procedure TForm.FormButtonClick(Sender: TObject);
var
 h:HWnd;
 l:Hwnd;
 m:TMsg;
 r:TRect;
 buf: array[0..256] of WCHAR;
 Nm: PChar;

begin
 h := FindWindow(nil,'Form1');
 Label1.Caption := inttostr(h);
 l := GetWindow(h,gw_Child);
 Label2.Caption := inttostr(l);
 if h=0 then exit;
end;

помогите советом и кодом