procedure TForm1.StringSQLinsert(grid: TStringGrid; mas,mass: array of string;
  query: TAdoquery; sql1: string);
var
i,j: integer;
begin
with query do begin
  SQL.Text:=sql1;
  Open;
  i:=1;
  if (RecordCount<>0) then begin
    grid.RowCount:=RecordCount+1;
    SetLength(mass,RecordCount);     //**********вот здесь ругается
    while (not Eof) do begin
    for J := 1 to Length(mas) do begin
      grid.Cells[j,i]:=trim(Fields.Fields[j-1].AsString);
    end;
    inc(i);
    Next;
    end;
  end;
  Close;
end;
end;