извлечение данных interbase 6.5

procedure TForm1.Button1Click(Sender: TObject);
var
    i,j:Integer;
begin
  DataModule2.IBQuery.First;
  i:=1;
  while not DataModule2.IBQuery.Eof do
  begin
    for j:=1 to DataModule2.IBQuery.FieldCount do
      a[i, j]:=DataModule2.IBQuery.Fields[j-1].Asinteger;
    DataModule2.IBQuery.Next;
    inc(i);
  end;
 
end;
procedure TForm1.Button3Click(Sender: TObject);
var
    i,j,k:Integer;
begin
k:=17;
for i:=1 to k do
for j:=1 to k do begin
    stringgrid1.cells[i,j]:=inttostr(a[i,j]);
    end;
    end;

procedure TForm1.Button1Click(Sender: TObject);
var
    i,j:Integer;
begin
  DataModule2.IBQuery.First;
  i:=1;
  while not DataModule2.IBQuery.Eof do
  begin
    for j:=1 to DataModule2.IBQuery.FieldCount do
      a[i, j]:=DataModule2.IBQuery.Fields[j-1].asinteger;
    DataModule2.IBQuery.Next;
    inc(i);
 
  end;
 begin
 
for i:=1 to 5 do
for j:=1 to 17 do begin
    a[i,j]:=a[j,i];
    stringgrid1.cells[i,j]:=inttostr(a[i,j]);
    end;
    end;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
i,j:Integer;
begin
for i:=0 to 5 do
for j:=0 to 17 do
stringgrid2.Cells[1,j]:=inttostr(a[3,j]*a[5,j]);
end;