procedure TForm1.Button1Click(Sender: TObject);
const
   SIZE=5;
var
   a: array[1..SIZE] of string; // массив
   obr: string;                 // образец для поиска}
   found: boolean;               // TRUE - совпадение образца с элементом массива }
   i: integer;                   // индекс элемента массива }
 
begin
 // ввод массива
   for i:=1 to SIZE do
       a[i]:=StringGrid1.Cells[i-1,0];
   // ввод образца для поиска
   obr := edit1.text;
   // поиск
   found := FALSE; // пусть нужного эл-та в массиве нет
   i := 1;
   repeat
         if a[i] = obr
            then found := TRUE
            else i := i+1;
   until (i > SIZE) or (found = TRUE);
   if found
      then ShowMessage('Следующее за образцом слово '+a[i+1]+#13+'Поиск успешен.')
      else ShowMessage('Совпадений с образцом нет.');
end;
 
end.