Richtedit Postionieren

[radiselm]

Folgendes Problem habe ich:

Das Panel5 läuft langsam über das Richtedit. Wenn der Text zu Ende ist, soll auch das Panel5 abschalten. Ansonsten läuft das Programm Seite für Seite einwandfrei.

Zwei Fragen habe ich:

1.) Wie kann ich die jeweilige Postion einer Zeile fesstellen und legen.
2.) Wie kann ich am Ende mit Richtedit3.lines.count-1 eine IF-Abfrage mit dem feststellen des Textendes erreichen. Anbei der Code.

procedure TimeCallback4(TimerID,Msg: UINT; dwUser, dw1, dw2 Word); pascal;
var I, Richend1 : Integer;
begin

Richend := Form1.RichEdit3.Lines.Count;
Richend1 := Form1.RichEdit3.Lines.Count-1;
if Screen.Width = 800 then
begin
I := Z;
Form1.Panel5.Top := Z;
Z := Z+1;
if Z = 495 then
begin
Z := 0;
Form1.RichEdit3.Visible := false;
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_PA GEDOWN,0);
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_LI NEDOWN,0);
Form1.RichEdit3.Visible := True;
end;
end;
if Screen.Width = 1024 then
begin
I := Z;
Form1.Panel5.Top := Z;
Z := Z+1;
if Z = 620 then
begin
Z := 0;
Form1.RichEdit3.Visible := false;
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_PA GEDOWN,0);
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_LI NEDOWN,0);
Form1.RichEdit3.Visible := True;
end;
end;
end;
Vielen Dank

Wolfgang Rademacher