ОТЧЕТ ВОРД ИЗ БД ДЕЛФИ. ВСЕ СЮДА

[Ann1994]

Есть ДБгрид таблица связанная с базой, с 4 столбцами. Нужно вывести отчет по отечественному транспорту( строковое знаечение true) из набора отечественного и импортного транспорта.
Вот набросала, но не работает.


while not dm.Transport.eof do begin
if DM.Transport.FieldByName('Import'). AsString = 'true' then begin
SetTextToTable(tabl,j,1,Inttostr(j-2));
SetTextToTable(tabl,j,2,DM.Transpor t.FieldByName('Mark').AsString);
SetTextToTable(tabl,j,3,DM.Transpor t.FieldByName('Naimenovanie').AsStr ing);

SetTextToTable(tabl,j,4,DM.Vladelec Fiz.FieldByName('Familiya').AsStrin g);
SetTextToTable(tabl,j,5,DM.Transpor t.FieldByName('Power_dvigatel').AsS tring);
SetTextToTable(tabl,j,6,DM.Transpor t.FieldByName('V_dvigatel').AsStrin g);
end;
DM.Transport.Next;
DM.VladelecFiz.Next;
DM.VladelecOrg.Next;
j:=j+1;
end;

SetMergeCellsTable(tabl,1,1,1,6);
SaveDocAs(ExtractFileDir(applicatio n.ExeName)+'\Transport.doc');