przesuawnie scroli w dwoch memo

Mam pytanie jak zrobic w delphi aby w doch okienkach memo majac scrole podczas przeuwania w jednym oknie scrolem przesuwal sie scrol w drugim okienku ???

pozdrawiam

Sposób torche wiejski ale działa :
-Wstaw 2 ScrollBox, 2 memo(memo wstaw do ScrollBox) i 1 Timer

-dalej pisz :

[code]procedure TForm1.FormCreate(Sender: TObject);
begin
MEMO1.Height:=4000;
MEMO2.Height:=4000;

end

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ScrollBox2.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position;
end;
[/code]

Sposób torche wiejski ale działa :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ScrollBox2.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position;
end;

i to jak wiejski. załamka.
przecież ScrollBox ma zdarzenie OnScroll i OnChange, po kiego grzyba tedy timer???

a nie dalo by rady zrobic tego inaczej na samych memo?