[Ogurcofff]

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
trackbar1.Position:=strtoint(edit1.text);
i:=StrToint(edit1.text);
j:=trackbar1.max;
if i>j then trackbar1.max:=i*2;
end;

Так?
Нет похоже не так. Что то туплю я конкретно