Suchfunktion im StringGrid

[Rippo]

Hallo

Könnte mir einer bitte zeigen wie ich in meiner Suchfunktion auch nach teilen suchen kann

z.b im Feld steht hans peter und ich suche nur nach peter dass das hans peter auch markiert wird

Delphi-Quellcode:

                        //Hier wird gesucht
procedure TfrmKundenstamm.btnSuchenClick(Sender: TObject);
begin
  StringGridKunden.Repaint;
end;[DELPHI] 

              //Der gesuchte Begriff wird farblich Markiert
procedure TfrmKundenstamm.StringGridKundenDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with (Sender as TStringGrid) do
  begin
  if (ACol = 0) or (ARow = 0) then
      Canvas.Brush.Color := clBtnFace
      else
    begin
      case ACol of
        1: Canvas.Font.Color := clBlack;
        2: Canvas.Font.Color := clBLue;
      end;

      if (cells[acol, arow] = edtSuchen.Text) then
        Canvas.Brush.Color := clred
      else
        Canvas.Brush.Color := $00FFEBDF;

      Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);
      Canvas.FrameRect(Rect);

end;
end;
end;

[/DELPHI]