Вывод в Memo по Таймеру одной строкой

{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  s: string;
  z: string;
  F: TextFile;
begin
 panel2.Caption := timetostr(now);
  if CheckBox2.Checked = true then panel1.Color := clred;
  S := FormatDateTime('dddddd hh:nn:ss' , Now) + '  ' +  'разомкнут';  // Текущее время и состояние
   z := FormatDateTime('dddddd hh:nn:ss' , Now) + '  ' +  'замкнут';  // Текущее время  и состояние
 
             if  panel1.Color = clred then memo1.Lines.Add(s);
 
            if  panel1.Color = clgreen then memo1.Lines.Add(z);
 
         // Запись строки в лог-файл
 AssignFile(F, 'Alarm_List.txt');
  if not FileExists('Alarm_List.txt') then Rewrite(F) else Append(F);
  try
   if panel1.Color = clred then Writeln(F, S);
   if panel1.Color = clgreen then  Writeln(F, z);
  finally
    CloseFile(F);
  form1.MediaPlayer1.Open;
 if panel1.Color = clred then mediaplayer1.Play;  //Звучит сирена
end;
 end;
 procedure TForm1.Button1Click(Sender: TObject);
begin
    Timer1.Enabled := true;
     if CheckBox2.Checked = false then Panel1.Color := clgreen;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if Form1.CheckBox1.Checked then Timer1.Enabled := false else  Timer1.Enabled := true;
 if Form1.CheckBox1.Checked then Form1.Button1.Enabled := false else Form1.Button1.Enabled := true;
 if  Panel1.Color = clgreen then  Form1.CheckBox1.Checked := false;
 if CheckBox1.Checked = true then mediaplayer1.Stop;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
    panel1.Color := clred; //тест
end;
end.

Memo1.Text:=s;