1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
    searchResult : TSearchRec;
    multiArray : Array of Array [1..6] of WideString;
begin
  i := 0;
  stringgrid1.RowCount := i;
  SetLength(multiArray, 2);
    if FindFirst(ExtractFilePath(paramstr(0)) + 'data\' + '*.*', faAnyFile, searchResult) = 0 then
    begin
      repeat
        if ( searchResult.Name <> '.' ) and ( searchResult.Name <> '..' ) then
        begin
          multiArray[i,1] := searchResult.Name;
          SetLength(multiArray,  high(multiArray)+1);
          i := i + 1;
        end;
      until FindNext(searchResult) <> 0;
      FindClose(searchResult);
    end;

  stringgrid1.RowCount := high(multiArray)+1;
  if i > 0 then
  begin
    for i := low(multiArray) to high(multiArray) - 1 do
    begin
      stringgrid1.Cells[0,i+1] := multiArray[i,1];
      //showmessage('m: ' + multiArray[i,1]);
    end;
  end;
end;					

1:

SetLength(multiArray,  high(multiArray)+1);					

1:

setLength(multiArray, high(multiarray)+2);