[delphi-en] search in database

[hosein]

hi
i write for search in database this code:
DataModule2.adoQuery3.Active:=FALSE;
DataModule2.adoQuery3.SQL.Clear;
DataModule2.adoQuery3.SQL.Add('SELECT * ');
DataModule2.adoQuery3.SQL.Add('FROM table1');
DataModule2.adoQuery3.SQL.Add('WHERE (fild1  like ''%'+
edit1.TEXT+'%'') ');
DataModule2.adoQuery3.ExecSQL;
DataModule2.adoQuery3.Active:=TRUE;


but want to to add another code to it ...i want to change searched
color.for example i i search (Delphi)  all (Delphi) in db memo became red