Сократить размер кода

// 1ый канал
if
(DataModule2.adoquery1.FieldByName('CH1').asstring<>'') and
(DataModule2.adoquery1.FieldByName('CH2').asstring='') and
(DataModule2.adoquery1.FieldByName('CH3').asstring='') and
(DataModule2.adoquery1.FieldByName('CH4').asstring='') then
App.ActiveDocument.Tables.Item(2).Cell(i+2,1).Range.Text:=
'Рис.4.'+inttostr(DataModule2.adoquery1.recno)+
#13#10+
DataModule2.adoquery1.FieldByName('CH1').asstring+' - '+
DataModule2.adoquery1.FieldByName('Точка1').asstring+' '+
DataModule2.adoquery1.FieldByName('№точки1').asstring+', '+
DataModule2.adoquery1.FieldByName('Датчик1').asstring;
 
// 2ой канал
if
(DataModule2.adoquery1.FieldByName('CH1').asstring='') and
(DataModule2.adoquery1.FieldByName('CH2').asstring<>'') and
(DataModule2.adoquery1.FieldByName('CH3').asstring='') and
(DataModule2.adoquery1.FieldByName('CH4').asstring='') then
App.ActiveDocument.Tables.Item(2).Cell(i+2,1).Range.Text:=
'Рис.4.'+inttostr(DataModule2.adoquery1.recno)+
#13#10+
DataModule2.adoquery1.FieldByName('CH2').asstring+' - '+
DataModule2.adoquery1.FieldByName('Точка2').asstring+' '+
DataModule2.adoquery1.FieldByName('№точки2').asstring+', '+
DataModule2.adoquery1.FieldByName('Датчик2').asstring;
 
// 3ий канал
if
(DataModule2.adoquery1.FieldByName('CH1').asstring='') and
(DataModule2.adoquery1.FieldByName('CH2').asstring='') and
(DataModule2.adoquery1.FieldByName('CH3').asstring<>'') and
(DataModule2.adoquery1.FieldByName('CH4').asstring='') then
App.ActiveDocument.Tables.Item(2).Cell(i+2,1).Range.Text:=
'Рис.4.'+inttostr(DataModule2.adoquery1.recno)+
#13#10+
DataModule2.adoquery1.FieldByName('CH3').asstring+' - '+
DataModule2.adoquery1.FieldByName('Точка3').asstring+' '+
DataModule2.adoquery1.FieldByName('№точки3').asstring+', '+
DataModule2.adoquery1.FieldByName('Датчик3').asstring;
 
// 4ый канал
if
(DataModule2.adoquery1.FieldByName('CH1').asstring='') and
(DataModule2.adoquery1.FieldByName('CH2').asstring='') and
(DataModule2.adoquery1.FieldByName('CH3').asstring='') and
(DataModule2.adoquery1.FieldByName('CH4').asstring<>'') then
App.ActiveDocument.Tables.Item(2).Cell(i+2,1).Range.Text:=
'Рис.4.'+inttostr(DataModule2.adoquery1.recno)+
#13#10+
DataModule2.adoquery1.FieldByName('CH4').asstring+' - '+
DataModule2.adoquery1.FieldByName('Точка4').asstring+' '+
DataModule2.adoquery1.FieldByName('№точки4').asstring+', '+
DataModule2.adoquery1.FieldByName('Датчик4').asstring;

procedure TD.X;
var L1, L2, L3, L4 : Boolean;
  procedure _x(L : string);
  begin
    App.ActiveDocument.Tables.Item(2).Cell(i+2,1).Range.Text:=
       'Рис.4.'+inttostr(DataModule2.adoquery1.recno)+ #13#10+
        DataModule2.adoquery1.FieldByName('CH'+L).asstring+' - '+
        DataModule2.adoquery1.FieldByName('Точка'+L).asstring+' '+
        DataModule2.adoquery1.FieldByName('№точки'+L).asstring+', '+
        DataModule2.adoquery1.FieldByName('Датчик'+L).asstring;
  end;
begin
  L1 := DataModule2.adoquery1.FieldByName('CH1').asstring = '';
  L2 := DataModule2.adoquery1.FieldByName('CH2').asstring = '';
  L3 := DataModule2.adoquery1.FieldByName('CH3').asstring = '';
  L4 := DataModule2.adoquery1.FieldByName('CH4').asstring = '';
 
  if not L1 and L2 and L3 and L4 then _x('1'); // 1-ый канал
  if L1 and not L2 and L3 and L4 then _x('2'); // 2-ой канал
  if L1 and L2 and not L3 and L4 then _x('3'); // 3-ий канал
  if L1 and L2 and L3 and mot L4 then _x('4'); // 4-ый канал
end;