Помогите со скролом

[Dude_first]

Как с помощью внешнего скролла TScrollBar прокручивать Memo

[Stilet]

Вот пример :

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
ScrollBar1: TScrollBar;
procedure ScrollBar1Change(Sender: TObject);
procedure Memo1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Memo1.Perform(WM_VSCROLL,MakeWParam (SB_THUMBPOSITION,ScrollBar1.Positi on),0);
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
ScrollBar1.Max:=Memo1.Lines.Count;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ScrollBar1.Max:=Memo1.Lines.Count;
end;

end.