TGrad = record
ID: integer;
Grad,zip: string;
var Grad = array of Tgrad;
.....
while not SimpleDataSet.eof do
begin
Grad[RecNo].ID:=FieldByName['ID'].AsInteger;
Grad[RecNo].Grad:=FieldByName['Grad'].AsString;
..........
routing protocols enable routers to route routed protocols!