TRichEdit probleme beim scrollen

[DelTurbo]

Hi,

ich habe ein problem mit dem RichEdit. Ich habe vorgegeben das die History 200 betragen darf. Bin ich unter 200 klappt alles wunderbar. Sobald was neues kommt wird es unten angehängt und gegebenfalls sauber gescrollt.

Überschreite ich die 200 und lösche dann die oberste zeile weg, springt er irgendwo mitten rein. Das heisst ich sehe dann nichtmehr das ende des textes, sondern der steht irgendwo mitten drin. Srcolle ich den dann wieder nach unten, passiert bei der nächsten ausgabe das gleiche. Er scrollt einfach irgendwo mitten rein.

Das RichEdit benutze ich nur als ausgabe. Es ist auf ReadOnly. Ist die 200 erreicht mache ich folgendes.

Delphi-Quellcode:

        
while REditOut.Lines.Count > 200 do begin
   REditOut.Lines.Delete(0);
end;
REditOut.Perform(EM_SCROLLCARET,SB_LINEDOWN,0);

Was mache ich falsch?

Vielen dank im voraus