Как сделать, чтобы Memo обновлялся автоматически

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, jpeg, Buttons, XPMan, sSkinManager,
  sButton, sLabel, sEdit, sPanel, sGroupBox, sMemo;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    sSkinManager1: TsSkinManager;
    sPanel1: TsPanel;
    Image1: TImage;
    Image2: TImage;
    sButton1: TsButton;
    sButton2: TsButton;
    sLabel1: TsLabel;
    sEdit1: TsEdit;
    sLabel2: TsLabel;
    sEdit2: TsEdit;
    sButton3: TsButton;
    sGroupBox1: TsGroupBox;
    sLabel4: TsLabel;
    sGroupBox2: TsGroupBox;
    sLabel5: TsLabel;
    sMemo1: TsMemo;
    sLabel3: TsLabel;
    procedure N5Click(Sender: TObject);
    procedure DrawBones(im: TImage; num: integer);
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure sMemo1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnNewGameClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   number,num1, num2, st,sum,num, iThrowCount: integer; { number - ââåäèòå ÷èñëî
   num1,2 - âûïàâøåå ÷èñëî, st - ñòàâêà, iThrowCount - ñ÷åò÷èê áðîñêîâ}
 
implementation
 
uses Unit3, Unit2;
 
{$R *.dfm}
procedure Tform1.DrawBones(im: TImage; num: integer);
begin
  with im.Canvas do                            // ðèñóþ ëèíèè
  begin
    brush.color := clWhite;
    rectangle(0,0,105,105);
    if num = 0 then
    begin
      moveto(0,0);
      LineTo(105,105);
      moveto(105,0);
      LineTo(0,105);
    end
    else
    begin
    brush.Color := clBlack;            // ðèñóþ êîñòè
      case num of
      1: begin
        ellipse(45,45,60,60);
      end;
      2: begin
        ellipse(15,75,30,90);
        ellipse(75,15,90,30);
      end;
      3: begin
        ellipse(15,75,30,90);
        ellipse(45,45,60,60);
        ellipse(75,15,90,30);
      end;
      4: begin
        ellipse(15,75,30,90);
        ellipse(75,15,90,30);
        ellipse(15,15,30,30);
        ellipse(75,75,90,90);
      end;
      5: begin
        ellipse(15,75,30,90);
        ellipse(75,15,90,30);
        ellipse(45,45,60,60);
        ellipse(15,15,30,30);
        ellipse(75,75,90,90);
      end;
      6: begin
        ellipse(15,75,30,90);
        ellipse(45,15,60,30);
        ellipse(75,15,90,30);
        ellipse(15,15,30,30);
        ellipse(45,75,60,90);
        ellipse(75,75,90,90);
      end;
      end;
    end;
  end;
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
form3.show;                        // âûçûâàåò ôîðìó3
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
form2.show;
end;
 
procedure TForm1.sButton1Click(Sender: TObject);
begin
close;                       // çàêðûòèå ïðîãðàììû
end;
procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.sButton3Click(Sender: TObject);
begin
begin
  Randomize();
  if length(sEdit1.Text)=0 then           // Åñëè ÷èñëî íå ââåäåíî
  begin
    ShowMessage('Çàãàäàéòå ÷èñëî îò 2 äî 12');
  end;
  if length(sEdit2.Text)=0 then             // Åñëè íå ââåäåíà ñòàâêà
  begin
    ShowMessage('Ñäåëàéòå ñòàâêó');
  end;
  if StrToInt(sEdit2.Text) > sum then      // åñëè ñòàâêà áîëüøå ñóììû íà ñ÷åòå
  begin
    ShowMessage('Ñòàâêà ïðåâûøàåò ñóììó âàøåãî ñ÷åòà');
    sEdit2.Text:=inttostr(sum);
  end;
   {Åñëè çàãàäàííîå ÷èñëî ìåíüøå 2 è áîëüøå 12}
  if (StrToInt(sEdit1.Text) > 12) or (StrToInt(sEdit1.Text) < 2) then
  begin
    ShowMessage('×èñëî äîëæíî áûòü áîëüøå 2 è ìåíüøå 12');
  end;
 
  number := StrToInt(sEdit1.Text);
 st:= StrToInt(sEdit2.Text);
  // áðîñîê êóáèêîâ
  num1 := random(6) + 1;
  DrawBones(image1,num1);
  num2 := random(6) + 1;
   // ôóíêöèÿ drawbones ðèñóåò êîñòè
  DrawBones(image2,num2);
  sLabel4.Caption := IntToStr(num1) + ' + ' + IntToStr(num2) +  ' = '
  + IntToStr(num1+num2);
end;
end;
 
procedure TForm1.sMemo1Click(Sender: TObject);
begin
iThrowCount:=iThrowCount+1;
sMemo1.Lines.add('-------------');
sMemo1.Lines.add (IntToStr(iThrowCount)+'áðîñîê êóáèêà');
sMemo1.Lines.add('-------------');
sMemo1.Lines.add('Ââåäåíî ÷èñëî: ' + sEdit1.Text);
sMemo1.Lines.add('Âûïàëè ÷èñëà: ' + IntToStr(num1)+ '+' + IntToStr(num2)+ '='
+IntToStr(num1+num2));
sMemo1.Lines.Add('Ñòàâêà: ' + sEdit2.Text);
if number=(num1+num2) then
begin
sLabel3.Caption:= 'Âû óãàäàëè âûïàâøåå ÷èñëî';
sum:=sum+2*st;
sLabel5.Caption:= IntToStr(sum);
sMemo1.Lines.Add('Óãàäàíî âûïàâøåå ÷èñëî. Ñóììà ñòàâêè óâåëè÷èâàåòñÿ â 2 ðàçà');
sMemo1.Lines.Add('Âûèãðàííàÿ ñóììà: ' +IntToStr(2*st));
end
else
begin
sLabel3.Caption:= ('Âû ïðîèãðàëè!');
sum:=sum-st;
sMemo1.Lines.Add('Âû ïðîèãðàëè ' +IntToStr(st));
if sum <= 0 then
begin
sLabel3.Caption:=('Âû ïðîèãðàëè! Èãðà îêîí÷åíà.');
sEdit1.Enabled:=false;
sEdit2.Enabled:=false;
sButton3.Enabled:=false;
sMemo1.Lines.add('Èãðà îêîí÷åíà');
end;
sLabel5.Caption:=IntToStr(sum);
end;
sMemo1.Lines.add('Ñóììà íà ñ÷åòå ' + IntToStr(sum));
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
sum := 100;
DrawBones(image1,0);
DrawBones(image2,0);
sMemo1.Lines.Add('Íà÷àëüíàÿ ñóììà î÷êîâ - 100');
end;
 
procedure TForm1.btnNewGameClick(Sender: TObject);
var
i: integer;
begin
sEdit1.Enabled:=true;
sEdit2.Enabled:=true;
sButton3.Enabled:=true;
sLabel5.Font.Color:= clTeal;
sLabel5.Caption := '100';
sLabel4.Caption := '';
sLabel3.Caption := '';
sEdit1.Clear;
sEdit2.Clear;
sum := 100;
iThrowCount := 0;
DrawBones(image1,0);
DrawBones(image2,0);
if sMemo1.Lines.Count > 0 then
for i := 0 to sMemo1.Lines.Count-1 do
sMemo1.Lines.Delete(0);
sMemo1.Lines.Add('Íà÷àëüíàÿ ñóììà î÷êîâ - 100');
end;
 
procedure TForm1.N3Click(Sender: TObject);
var
i: integer;
begin
sEdit1.Enabled:=true;
sEdit2.Enabled:=true;
sButton3.Enabled:=true;
sLabel5.Font.Color:= clTeal;
sLabel5.Caption := '100';
sLabel4.Caption := '';
sLabel3.Caption := '';
sEdit1.Clear;
sEdit2.Clear;
sum := 100;
iThrowCount := 0;
DrawBones(image1,0);
DrawBones(image2,0);
if sMemo1.Lines.Count > 0 then
for i := 0 to sMemo1.Lines.Count-1 do
sMemo1.Lines.Delete(0);
sMemo1.Lines.Add('Íà÷àëüíàÿ ñóììà î÷êîâ - 100');
end;
 
end.