1.조인문을 쓰시던가 아님 루핑돌리시면 될것 같은데요...
어떤 DB를 쓰시는지 몰라 MS-SQL 로 했습니다
ORACLE 쓰신다면
  LEFT OUTER JOIN TABLE3 B
    ON ((A.FIELD1 = B.FIELD1)
    AND (B.FIELD2 = '01'))

저 문장 대신에

WHERE A.FIELD1 *= B.FIELD1
      AND B.FIELD2 = '01'
이렇게 하시면 되구요..
담부턴 DB를 써주시는게 예의일듯...


SELECT A.FIELD1
            ,A.FIELD3          
            ,B.FIELD3
            ,C.FIELD3
            ,D.FIELD3
            ,E.FIELD3
            ,F.FIELD3
  FROM TABLE2 A
  LEFT OUTER JOIN TABLE3 B
    ON ((A.FIELD1 = B.FIELD1)
    AND (B.FIELD2 = '01'))
  LEFT OUTER JOIN TABLE3 C
    ON ((A.FIELD1 = C.FIELD1)
    AND (C.FIELD2 = '01'))
  LEFT OUTER JOIN TABLE3 D
    ON ((A.FIELD1 = D.FIELD1)
    AND (D.FIELD2 = '01'))
  LEFT OUTER JOIN TABLE3 E
    ON ((A.FIELD1 = E.FIELD1)
    AND (E.FIELD2 = '01'))
  LEFT OUTER JOIN TABLE3 F
    ON ((A.FIELD1 = F.FIELD1)
    AND (F.FIELD2 = '01'))
WHERE A.FIELD1 = '111'          
            

2. 루핑을 돌린다면.. 더 편할것 같은데요?
var
   iCnt : Integer;
   sQuery : String;
begin  

with Query1 do
begin
   Close;
   SQL.Clear;
   SQL.Add( 'SELECT FIELD2, FIELD3 FROM TABLE3' );
   SQL.Add( ' WHERE FIELD1 = ''111''                       ' );
이렇게 가져온값을..
   Open;
   First;
   ICnt := 1;

   while not EOF do
   begin
      if iCnt = FieldByName( 'field2' ).AsInteger then
       begin
           sQuery := sQuery + 'field' + IntToStr( iCnt + 1)  + ' = ' + '''' + FieldByName( 'Field2' ).AsString + '''';
       end;

       if not EOF then
       begin
          sQuery := sQuery + ',';
           Inc( iCnt );
       end;
       Next;
   end;

   //=====삽입 쿼리.
   with Query1 do
   begin
       Close;
       SQL.Add( 'insert into table1 ( 'field1', ...... );
       SQL.Add( sQuery );
       .....
       ExecSQL;
   end;
  
end;