Sichtbaren Bereich im RichEdit-Feld abfragen?

[sniper_w]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var n,lp,wp : integer;
begin
n := SendMessage(RichEdit1.Handle,EM_GETFIRSTVISIBLELINE,wp,lp);
Caption :=RichEdit1.Lines.Strings[n];
end;