А не надо ничего особого делать:
Код:
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;