كيف تلوين كلمة في مكون Memo في دلفي ؟

[بوزيان]

السلام عليكم
كيف جعل الكلمة الأولى أو الثانية بلون معين وذلك في السطر الأول والثاني في مكون Memo في دلفي

[بوزيان]

كيف يمكن تطبيق هذا الكود
&&&&&&&&&

PHP كود :

procedure RE_ColorerMots(RE: TRichEdit; Mot: ShortString; AColor: TColor; var Count: integer);
// 3 secondes 37 secondes 721 ms pour 4784 mots dans Zola992K.txt de 992 Ko
label Recomm;
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  Count := 0;
  with RE do
  begin
    // Commence la recherche après la sélection en cours s'il y en a une sinon, commence au début du texte
    if SelLength <> 0
      then StartPos := SelStart + SelLength
    else StartPos := 0;
 
    Recomm:
    ToEnd := Length(Text) - StartPos; // ToEnd indique la longueur entre StartPos et la fin du texte du RichEdit
 
    FoundAt := FindText(Mot, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      inc(Count);
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(Mot);
      SelAttributes.Color := AColor;
      StartPos := FoundAt + Length(Mot);
      if StartPos < length(Text) then goto Recomm;
    end;
    SelLength := 0;
  end;
end; 


[محمد عبد العزيز]

http://delphi4arab.net/forum/showthread.php?tid=2001
http://delphi4arab.net/forum/showthread.php?tid=8746

[بوزيان]

شكرا لكن كيف يمكن تطبيق الكود السابق

[محمد عبد العزيز]

كود :

var Count: integer; begin RE_ColorerMots(Form1.RichEdit1,'delphi',ClBlue,Count); end;

[بوزيان]

بارك الله فيك أخي قد نفعتني كثيرا

[بوزيان]

كود :

var Count: integer; begin RE_ColorerMots(Form1.RichEdit1,'delphi',ClBlue,Count); end;

وجدت مشكل آخر آلا وهو أن المؤشر يذهب للكلمة التي أبحث عنها حتى وإن لم أكمل الكتابة ، والسبب أني أريد وضع الكود ( [size=small]RE_ColorerMots(Form1.RichEdit1,'delphi',ClBlue,Count); ) [/size]في Edit1Change