RichEdit

Hallo,
ich habe ein Problem, für mich unlösbar, vielleicht kann mir jemand helfen.Es geht um folgendes :

Ich möchte dass ein normales RichEdit feld folgende Bedingungen erfüllt.

  1. darf nich mehr als 5 Zeilen haben (das Eingeben einer
  2. Textzeile darf nicht Möglich sein.)
    2.Beliebig viele einzelne Wörter können im Text des RichEdit
    Felds farblich markiert, und die Markierung kann auch wieder
    aufgehoben werden.

zu 1:
http://groups.google.com/groups?q=Richedit+and+Max+L…

zu 2:
procedure TForm1.Button1Click(Sender: TObject);
begin
with RichEdit1.SelAttributes do
begin
Color := clRed;
Height := Height + 5;
end;
RichEdit1.Lines.Add(‚Diese Textzeile wird rot.‘);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.DefAttributes.Color := clBlue;
RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;

aus Hilfe zu TRichedit.SelAttributes

Gruss und viel Erfolg!

Rüdiger