자꾸 테스트 해보면 조금씩 틀리고 이것도 완벽하게 동작은 안되요..
그래도 근사(비슷)하게 되므로 일단 올립니다.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  HookType = function(hWnd: HWND; Msg: WORD; wParam: WORD; lParam: LONGINT): LONGINT; StdCall;
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    RichEdit3: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  OldWinProc: HookType;
  richedit1handle, richedit2handle : HWND;
  m_depthscroll : integer;
  m_currentrow : integer;
  function NewWinProc(hWnd: HWND; Msg: WORD; wParam: WORD; lParam: LONGINT): LONGINT; StdCall;
implementation

{$R *.dfm}
function NewWinProc(hWnd: HWND; Msg: WORD; wParam: WORD; lParam: LONGINT): LONGINT; StdCall;
var incrow : integer;
    comparerow : integer;
    i : integer;
begin
  if  (hWnd = richedit1handle) then
    case Msg of
      WM_PAINT :
      begin
        comparerow := SendMessage(richedit1handle, EM_GETTHUMB, 0, 0);
        incrow := comparerow div m_depthscroll;
        if m_currentrow <> incrow then
        begin
          SendMessage(richedit2handle, EM_SCROLL, incrow, 0);
        end;
        m_currentrow := incrow;
      end;
    end;
  Result := CallWindowProc(@OldWinProc, hWnd, Msg, wParam, lParam)

end;

procedure TForm1.FormCreate(Sender: TObject);
var P : HookType;
begin
  richedit1handle := RichEdit1.Handle;
  richedit2handle := RichEdit2.Handle;
  P := NewWinProc;
  m_depthscroll := SendMessage(richedit1handle, EM_GETTHUMB, 0, 0);
  SendMessage(richedit1handle, EM_SCROLL, 1, 0);
  m_depthscroll := SendMessage(richedit1handle, EM_GETTHUMB, 0, 0) - m_depthscroll;
  SendMessage(richedit1handle, EM_SCROLL, 0, 0);
  m_currentrow := 0;
  Integer(Pointer(@OldWinProc)) := SetWindowLong(RichEdit1.Handle, GWL_WNDPROC        , integer(Pointer(@p)));

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SetWindowLong(RichEdit1.Handle, GWL_WNDPROC        , Integer(Pointer(@OldWinProc)));
end;

end.

이부문을 아래와 같이 바꾸세요.

        if m_currentrow <> incrow then
        begin
          if incrow > m_currentrow then
            for i := 0 to (incrow - m_currentrow) - 1 do
              SendMessage(richedit2handle, EM_SCROLL, 1, 0);
          if incrow < m_currentrow then
            for i := 0 to (m_currentrow - incrow) - 1 do
              SendMessage(richedit2handle, EM_SCROLL, 0, 0);
        end;

이궁 시간 졸라 까먹었네요 4시간이나 걸렸어요 ㅠ_ㅠ

감사합니당 ^^ ㅎㅎ

근데 소스가 넘흐 어려워서 잘 모르겠네여 ㅠ _ㅠ

복사하기루 짜집기는 혀

디자인모드에서 미리 데이타를 집어넣고 했기에 이것이 먹혔거든요

FormCreate 부문에 이 부문을 강제로 입력하여 보세요

m_depthscroll := 15;

리치에디터에 데이타가(그것도 한페이지 이상) 없어서

m_depthscroll = 0 가 되어서

에러가 난거에요.. (완벽히 제 실수 입니다..)