procedure POISK(Kolvo:integer;var Nax:integer);
var
   What:string;
   Where:string;
   How:String;
   i,j:integer;
   begin
      What:='';
      For i:=1 to Kolvo do
         begin
            What:=What+Form1.Edit1.Text[i];
            end;
      //Form1.StringGrid1.RowCount
      For j:=1 to Form1.StringGrid1.RowCount-1 do
         begin
            How:=Form1.StringGrid1.Cells[Form1.ComboBox1.ItemIndex,j];
            Where:='';
            For i:=1 to Kolvo do
               Where:=Where+How[i];
            if What=Where then
               begin
                  Nax:=Nax+1;
                  Form1.ListBox2.Items.Add(IntToStr(j));
                  end;
            end;
      end;

               {Поиск ... первые 8..7..6..5..4..3..2.. буквы=========================}
               Kolvo:=length(Edit1.Text);
               if Kolvo>8 then Kolvo:=8;
               if Kolvo<2 then Kolvo:=2;
               For i:=0 to Kolvo-1 do
                  begin
                     if Nax=0 then POISK(Kolvo-i,Nax);
                     end;
               {============================================================}