Duda con dbmemo

[ruina]

mira a ver usando el evento onEnter del control y posicionando el cursor al final (no se si es esa la idea) :

Código Delphi [-]
procedure TForm1.DBMemo1Enter(Sender: TObject);
var hoy:string;
begin
    hoy:=datetostr(now)+' ';
    ClientDataSet1.Edit;
    if (DBMemo1.Lines.Count>0) and
       (DBMemo1.Lines[DBMemo1.Lines.Count-1]<>hoy) then
    begin
            DBMemo1.Lines.Add(hoy);
            DBMemo1.SelStart:=length(DBMemo1.Lines.Text);
    end;
end;

[acrophet]

Gracias por responder Ruina. Pero no es por ahi por donde yo voy. Te explico:

Yo introduzco automaticamente la fecha, vale. Pero luego lo que yo quiero es escribir en la linea donde he metido la fecha, pero sin que esta se vaya desplazando. Escribir al principio de la linea

 Aqui meto el texto escribiendo                                    02/08/04 (esta es la fecha que meto automaticamente

Pues lo que quiero es que lo que voy escribiendo no me corra la fecha, sino que vaya sobreescibiendo hasta llegar a la fecha, y si lo que hay que escribir es mas largo, pues de momento, mala suerte

Un saludo.