[angvelem]

Можно и так:

Код:

  Memo1.Lines.Clear;
  Memo1.Lines.Add(SL.Text);

Лог может получиться очень большим.

Если нужно постоянно выводить информацию в Memo, то так, наверное, будет лучше:

Код:

procedure Form1.FormDestroy(Sender : TObject);
begin
  Memo1.Lines.SaveToFile('Log.log');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.Add(Format('%s - %s', [DateTimeToStr(Now), Edit1.Text]));
end;