Но при мен долу-постнатия код връща стойност 1 на RecCount, а би трябвало 15 - толкова записа селектира SQL едитора на Interbase.

Query:=Tstringlist.Create;
Query.clear;
Form1.sql.Close;
Form1.sql.SQL.clear;
Form1.sql.sql.Add('SELECT NAME.SERIAL,PERM FROM FACTURA INNER JOIN NOMEN ON FACTURA.SAPCODE=NOMEN.SAPCODE WHERE NOMER='+main.AdfNomer);
Form1.sql.Open;
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;

Моля за помощ.
Благодаря

Прав си, че е тъпо :). отварянето на 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;

10x