Добавление даты и времени в компонент Memo

{ Следующий код вставляет значение даты/времени в memo-поле. }

Var

s : string ;
begin
s :=  DateToStr( Date ) + ' ' + TimeToStr( Time ) + '  :' ;
Memo1.Lines.Insert( 0,  s ) ;
Memo1.SetFocus ;
Memo1.SelStart := Length( s ) ;
Memo1.SelLength := 0 ;