In StringGrid suchen

[dopeline]

ich habe mal noch eine frage. ich habe den suchalgorithmis noch etwas verdeinert. dunktioniert ja auch super. allerdings, muss der suchstring immer dem kompletten zelleninhalt entsprechen! was muss ich ändern, damit auch ein "teilstring" als suchergebnis anerkannt wird? also wenn ich nach "Schule" suche, soll er auch in der zelle "stehen bleiben", in der "Schule ist toll" steht! wie mach ich das?

Delphi-Quellcode:

var suchtext:string;
    r,c:integer;
    gefunden:boolean;
begin
   gefunden:=False;
   suchtext:=ESuche.Text;
    if (suchtext='')or(suchtext=' ') then  else 
     begin
      For r:=zeile to FormHaupt.SGS.RowCount-1 do
       For c:=0 to FormHaupt.SGS.ColCount-1 do
        If (FormHaupt.SGS.Cells[c,r]=suchtext) then
         begin
          gefunden:=True;
          zeile:=r+1;
          WaehleZeileSGS(r); // ist eine Funktion, die die gesamte zeile markiert, in der sich der suchstring befindet
          BitBtn1.Caption:='Weitersuchen';
          exit;
         end;
     end;
    if (gefunden=False) then MessageDlg('" '+suchtext+'" wurde nicht gefunden', mtInformation, [mbOK],0);
  end;