Как разбить SQL запрос на несколько строк?

[UNToxa]

ADOQuery1.close;
ADOQuery1.SQL.clear;

ADOQuery1.Sql.Add('select table1.id, table1.fio, table1.data, table1.telefon, table1.pometka, table1.zatuh1, table1.pomeha1, table1.speed1, table1.speed2, table1.modulid, table1.adress,  modul.modulname, table1.datapto, table1.rezol, table1.tehdan, table1.dlina, table1.kabel, street.streetname, monter.montername from table1, modul, street, monter');

ADOQuery1.Sql.Add('where (modul.id=table1.modulid) and (street.id=table1.adress) and (monter.id=table1.monterid)');
ADOQuery1.Open;
ADOQuery1.Active:=False;
ADOQuery1.Active:=True;

Не влазиет строка, помогите разжедить на несколько строк, чтобы delphi не ругался....

[Аватар]

ADOQuery1.Sql.Add('select table1.id, table1.fio, table1.data,');
ADOQuery1.Sql.Add('table1.telefon, table1.pometka, table1.zatuh1,');
ADOQuery1.Sql.Add('table1.pomeha1, table1.speed1, table1.speed2,');
ADOQuery1.Sql.Add('table1.modulid, table1.adress,  modul.modulname,');
ADOQuery1.Sql.Add('table1.datapto, table1.rezol, table1.tehdan, table1.dlina, table1.kabel,');
ADOQuery1.Sql.Add('street.streetname, monter.montername');
ADOQuery1.Sql.Add(' from table1, modul, street, monter');

или нечто в этом духе

[UNToxa]

спасибо...

[asmodey1]

Кроме того, если имена полей в таблицах не пересекаются, названия таблиц можно смело опустить.
То есть

ADOQuery1.Sql.Add('select id, fio, data,');
ADOQuery1.Sql.Add('telefon, pometka, zatuh1,');
ADOQuery1.Sql.Add('pomeha1, speed1, speed2,');
ADOQuery1.Sql.Add('modulid, adress,  modulname,');
ADOQuery1.Sql.Add('datapto, rezol, tehdan, dlina, kabel,');
ADOQuery1.Sql.Add('streetname, montername');
ADOQuery1.Sql.Add(' from table1, modul, street, monter');

[evg_m]

я обычно делаю так

ADO.SQL.Text:='select f1'
 + #13#10'from tab1'
 + #13#10'where f2 =:nn';