procedure TabINI(tablica : string);
var
  i : Integer;
begin
 SetLength(tab, 0);
 Form2.qry1.Active := False;
 Form2.qry1.SQL.Clear;
 Form2.qry1.SQL.Text:= 'SELECT ID FROM '+tablica+';';
 Form2.qry1.Active := True;
 while not Form2.qry1.Eof do begin
   SetLength(tab, Length(tab)+1);
   Form2.qry1.Next;
 end;
 for i := Low(tab) to High(tab) do begin
   SetLength(tab[i], 2);
   tab[i][0]:=Form2.qry1.Fields.Fields[0].AsString;
   Form2.qry1.Next;
 end;
 Form2.qry1.Close;
end;