Как в Memo прокрутить текст

Как в Memo прокрутить текст

В поле ввода вводите на какую строку нужно сойти, и по нажатию на кнопку эта строка будет попадать о зону видимости:

procedure TForm1.Button1Click(Sender: TObject);
var
  line: integer;
begin
  line := StrToIntDef(Edit1.Text,1);
  Memo1.SelStart := Memo1.Perform(EM_LINEINDEX, line, 0);
  Memo1.Perform(EM_SCROLLCARET, 0, 0);
end;

дизайн интерьера . Без справок о доходах продажа запчастей для грузовых автомобилей. . авторские украшения . купить набор для бисероплетения .