1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  i, j: Word;
begin
  for i := 1 to 1000 do begin
    for j := 1 to 5 do begin
      if meinarray[i, j] = 'Mein Text' then
        ShowMessage('Text befindet sich in: '+ InttoStr(i) + ', ' + InttoStr(j));
      end;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function SeekStr(SeekedStr,StartAt:Integer=0);
begin
  Result:=-1;
  for i:=StartAt to High(MyArray) do
    if MyArray[i]:=SeekedStr then
    begin
      Result:=i;
      exit;
    end;
end;