Начать писать ПОСЛЕ вставленного текста

[taracqk]

Всем привет.
Нужна помощь: Есть определенная команда, добавляющая в Memo сегодн. дату.
Что то вроде

date:=datetostr(now);
MemoDnewn.text:=MemoDnewn.text + date;

Но вот проблема: После добавления даты "палочка" мигает ДО даты а не после.
Кто поможет? Можно было бы ещё, чтобы после даты он на след.строку переходил, но это второстепенно.
Буду очень благодарен.

[FaTaL]

Используй не MemoDnewn.text + date;, а MemoDnewn.Lines.Add(date) и будет Вам счастье.

[Noor]

А можно добавить всего пару строк в код ТС
пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  today : TDateTime;
begin
today := Now;
MemoDnewn.text:=MemoDnewn.text + DateToStr(today)+#13#10;
MemoDnewn.SetFocus;
MemoDnewn.SelLength := 0;
MemoDnewn.SelStart:=Length(MemoDnewn.Text);
end;

[taracqk]

Спасибо Вам, большое.