Scroll in Memo/RichEdit - zwei Memos scrollmäßig verbinden

[Delphi-Freak]

Das mit den Messages habe ich noch nicht ganz verstanden, auch bei anderen Beiträgen habe ich das gesehen. Also mein momentaner Code:
EditChr ist das RichEdit, in dem der User scrollt, EditHex, das RichEdit, das via Script mitscrollen soll (wird 'n HexViewer):

Delphi-Quellcode:

...
public
   { Public-Deklarationen }
   procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
end;
...
procedure TForm1.WMHScroll(var Message: TWMHScroll);
begin
   with Message do begin
      case Msg of
         WM_VSCROLL: EditHex.Perform(Msg, WParam(Msg), LParam(Msg));
      end;
   end;
end;

Muss ich da dem EditHex oder dem EditChr noch irgendwas wie WindowProc oder so zuweisen?
100THX