[W1ndow]

Код:

procedure TForm1.GenMas(size: integer);
var i: integer;
begin
  Randomize;
  StringGrid1.ColCount:=size;
  For i:=0 to size-1 do
    StringGrid1.Cells[i,0]:=IntToStr(Random(50)+1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer; b: boolean;
begin
  b:=false;
  GenMas(StrToInt(Edit1.Text));
  For i:=0 to StringGrid1.ColCount-1 do
    if StringGrid1.Cells[i,0]=Edit2.Text then begin
      b:=true; break;
    end;
  if b then ShowMessage('Искомый элемент найден под номером  '+IntToStr(i+1))
    else ShowMessage('Искомый элемент не найден');
end;

Вот это попробуй, делает то что тебе надо