[cyber922]

Сообщение от Ildar-tsr

Целиком вставь его в FormShow, а onChange убери:

Код:

procedure TForm1.FormShow(Sender: TObject);
var s : string;
begin
s := DateToStr( Date ) + ' - ' + TimeToStr(Time);
Memo1.Lines.Add(s);
Memo1.SetFocus;
Memo1.SelStart := Length(s);
Memo1.SelLength := 0;
end;

Спасибо, сча попробуем)