[angvelem]

Код:

var
  SL : TStringList;

procedure TForm1.FormCreate(Sender : TObject);
begin
 SL := TStringList.Create;
end;

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

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

Вот черновой набросок написанный на "коленке", так что лучше не пытаться копировать, а понять смысл.