Buscar pelo nome em uma stringgrid

Olá pessoal, boa tarde.

Bom é o seguinte, estou uma duvida não estou conseguido fazer com que quando digito uma letra que tem no stringgrid
deixe de visualizar os outros itens e fique só os itens que começa com a letra que digitei:

function GetSearchStr(const iBusca: string; SG: TStringGrid):string;
var
count : integer;
begin
if iBusca > '''' then begin
for count := SG.RowCount downto 0 do begin
if AnsiStartsStr((iBusca), LowerCase(SG.Cells[1,count+1])) then begin
SG.Row := count + 1;
Result := iBusca;
end;
end;
end;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
Label1.Caption:= GetSearchStr(Edit1.Text, StringGrid1);
end;

se alguém poder me ajuda agradeço