Прав си, че е тъпо :). отварянето на Query - то не означава зареждане на всички записи.
промени си кода така:

Form1.sql.Open;
Form1.sql.First;
while not Form1.sql.EOF do begin
Query.Add(form1.sql.FieldByName('NAME').AsString);
Query.Add(form1.sql.FieldByName('SERIAL').AsString);
Query.Add(form1.sql.FieldByName('PERM').AsString);
form1.sql.Next
end;

или

Form1.sql.Open;
Form1.sql.FetchAll; // това ще зареди всички записи, но не е много желателно да го ползваш при големи таблици
Form1.sql.First;
for I := 1 to form1.sql.RecordCount do begin
Query.Add(form1.sql.FieldByName('NAME').AsString);
Query.Add(form1.sql.FieldByName('SERIAL').AsString);
Query.Add(form1.sql.FieldByName('PERM').AsString);
form1.sql.Next
end;