Не работает scroll memo

[warma2d]

Здравствуйте!

Помогите пожалуйста разобраться, казалось бы, с простой вещью.
Необходимо сделать прокрутку memo любым простым способом.
Пытался сделать с помощью ScrollBar, но так и не получилось

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ScrollBar1: TScrollBar;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  m,f,s,p:real;
  i,j,k,h:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

  begin
         k:=2;

        while k < 18 do
              begin
              k:=k+2;
  if K<8 then f:= power(k,2)else
  if (k>=8) and (k<=15) then f:= sqrt(k)else
  f:=1;

  s:=0;
    for i:=1 to 10 do
                begin
       p:=1;
        for j:=i to (i-7) do
                          begin
         p:=p*( power(f+(i/j),5)+k );
                          end;
     s:=s+p;
     m:=s;

     memo1.Lines.Add ('m=' + floatToStr (roundTo(m,-2)) + ' ' + 'f=' +
floatToStr (roundTo(f,-2)));
                end;
              end;
     end;
   end.

[reserv]

А почему бы не поставить у memo1 свойство ScrollBars в ssVertical ?

[warma2d]

reserv, спасибо огромное за помощь! я даже и не знал о такой простой опции. Думал, что нужен дополнительный код и прочее.

Напишу для таких, как я, что оказываются нужно просто кликнуть на memo и в Object Inspector'e, во вкладке Properties, найти ScrollBars и поставить ssVertical.