برنامج البحث عن كلمة

السلام عليكم

هذه اول مشاركة لي في هذا المنتدى الرائع

مشاركتي عبارة عن برنامج بسيط يقوم بالبحث عن كلمة موجوة في نص معين وعندما يجدها يقوم بتغير لونها حسب اللون الذي يختاره المستخدم

هذه صور من البرنامج:

والأن مع رابط نت تحميل البرنامج:

التحميل من هنا

ولا انسى طبعا الجزء الهم وهو كود سورس البرنامج

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Buttons;

type
  TForm4 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    RichEdit1: TRichEdit;
    OpenDialog1: TOpenDialog;
    FontDialog1: TFontDialog;
    BitBtn3: TBitBtn;
    ColorBox1: TColorBox;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);
var
 i,j,l:integer;
 s:string;
begin
l:=Length(RichEdit1.Text);
s:=edit1.Text;
for j := 0 to l-1 do
  begin
  i:=RichEdit1.FindText(s,j,l,[]);
if i>-1 then
begin
RichEdit1.SelStart:=i;
RichEdit1.SelLength:=Length(edit1.text);
RichEdit1.SelAttributes.Style:=[fsBold];
 RichEdit1.SelAttributes.Color:= ColorBox1.Colors[ColorBox1.ItemIndex];



end;






end;
  end;
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TForm4.BitBtn4Click(Sender: TObject);
begin
if FontDialog1.Execute then
RichEdit1.Font:=FontDialog1.Font;
end;

procedure TForm4.BitBtn5Click(Sender: TObject);
begin
RichEdit1.Clear;
end;

procedure TForm4.Edit1Change(Sender: TObject);
begin

if edit1.Text<>'' then
BitBtn1.Enabled:=true
else
BitBtn1.Enabled:=false;
end;
end.

في إنتظار ملاحظاتكم و إنتقادتكم

شكرا