String-Suche in einem TStringGrid

[Alex_ITA01]

Guten Morgen erstmal,
ich habe folgende Frage:
Mit diesem Code kann ich in bestimmten Col's ein String suchen. Das geht ja soweit auch gut nur meine Frage ist, wie müsste ich den Source umschreiben, damit ich kein "array of Cols" übergeben muss sondern er alle Col's durchsucht?!
Ich hoffe ihr wisst was ich meine...
MFG Alex

Delphi-Quellcode:

function SeekRecord(Grid: TStringGrid; ColOrder: array of integer; StrList: array of String): Boolean;
var
  I, J : Integer;
begin
  result := false;
  for I := 1 to Grid.RowCount - 1 Do
  begin
    for J := low(ColOrder) to high(ColOrder) do
    begin
      if (Grid.Cells[ColOrder[J],I]=StrList[J]) then
         result := true
      else
         result := false;
      if result = false then break;
    end;
    if result = true then break;
  end;

  {if result = true then
     Grid.Row := I
  else
     ShowMessage('Datensatz nicht gefunden!' +#13#13+ 'Record not Found!');}
end;