StringGrid поиск по первой букве

procedure TForm2.Button1Click(Sender: TObject);
var
i,n:integer;
s:string;
t: TGridRect;
begin
s:=AnsiLowerCase(Edit2.Text);
with stringGrid1 do
   for i := 1 to rowCount - 1 do
   begin
          s:=stringgrid1.Cells[1,i];
     if AnsiUpperCase(Copy(S,0,length(edFind.text)))=AnsiUpperCase(Edit2.Text) then
    begin
       t.Left := 1;
       t.Top := i;
       t.Right := 9;
       t.Bottom := i;
       StringGrid1.Selection:=t;
       exit;
      end
    end
   end ;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s1,s2:string;
begin
  s1:= {AnsiUpperCase}(edFind.text);
  for i := 1 to stringGrid1.rowCount - 1 do
  begin
    s2:={AnsiUpperCase}(stringgrid1.Cells[1,i]);
    stringgrid1.Cells[0,i]:='';
    if pos(s1,s2)<>0 then stringgrid1.Cells[0,i]:=' ';   //помечаем пробелом эту строку
  end
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
with StringGrid1 do
   begin
     Canvas.font.Color:=clBlack;
     if (ACol > 0) and (ARow>0) and (TStringGrid(Sender).Cells[0,arow]=' ') then //если строка помечена, то цвет текста делаем красным
     Canvas.font.Color:=clRed;
     Canvas.FillRect(Rect);
     Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid1.Repaint;
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
with StringGrid1 do
   begin
     Canvas.font.Color:=clBlack;
     if (ACol > 0) and (ARow>0) and (pos(edFind.text, TStringGrid(Sender).Cells[1,arow])<>0) then
     Canvas.font.Color:=clRed;
     Canvas.FillRect(Rect);
     Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
   end;
end;