Как сделать, чтоб по клику переходил на строку с таким же значением в столбце?

procedure Searche(st:TStringgrid; ed:TEdit;  k:integer);
var i,TopRow:integer;
begin
TopRow:=0;
for i:=1 to st.RowCount-1 do
if ed.Text=st.Cells[form1.ComboBox2.ItemIndex,i] then
 Begin
  TopRow:=i;
  st.Selection:=TGridRect(rect(0, i, 7, i));
  break;
end;
if TopRow=0 then
showmessage ('Не найдено данных')
end;

if pos(ed.Text,st.Cells[form1.ComboBox2.ItemIndex,i])>0 then

var
  Form1: TForm1;
  k:integer;
implementation
 
{$R *.dfm}
procedure Searche(st:TStringgrid; ed:TEdit;  k:integer);
var i,TopRow:integer;
begin
TopRow:=0;
for i:=k to st.RowCount-1 do
if ed.Text=st.Cells[form1.ComboBox1.ItemIndex,i] then
 Begin
  TopRow:=1;
  st.Selection:=TGridRect(rect(0, i, 7, i));
  break;
end;
if TopRow=0 then
showmessage ('Не найдено данных')
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(k);
Searche(Stringgrid1,Edit1,k);
end;

if k<Stringgrid1.RowCount then Searche(Stringgrid1,Edit1,k);

if i = st.rowcount-1 then k:=0

procedure TForm1.Button1Click(Sender: TObject);
begin
inc(k);
Searche(Stringgrid1,Edit1,k);
if k>Stringgrid1.RowCount-1 then
 begin
  k:=0;
  Stringgrid1.Selection:=TGridRect(rect(0, 1, 0, 1));
 end;
 
end;