[Страдалецъ]

А не надо ничего особого делать:

Код:

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 Edit1.Text := IntToStr(ScrollBar1.Position);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 ScrollBar1.Position := StrToIntDef(Edit1.Text, 0);
end;