field1(str), Field2(str),Field3(memo)

이 필드 내용들을 text로  export하려고 하는데요.
memo안에는 단어들이 tab구분으로 되어있습니다.
갯수와 길이들도 다릅니다.
아래처럼 뽑아내려고 해요.
...
...
field1(str),field2(str),field3(첫블럭;첫탭부분)
field1(str),field2(str),field3(두번째블럭;두번째탭부분)
field1(str),field2(str),field3(세번째블럭;세째탭부분)
...
...
이렇게요.

Field(memo)부분만 좀 부탁합니다. 파스칼이 서툴러서요...
부탁합니다.


var
  MyFile            : TextFile;
  Field1,  Field2,  Fielㅇ3 : String;
begin
     try
       AssignFile(MyFile,'c:data.txt');
       Rewrite(MyFile);
       Query1.First;
       repeat
        Field1  := Query1.FieldByName('Field1').AsString;
        Field2  := Query1.FieldByName('Field2  ').AsString;
         Field3  := Query1.FieldByName('Field3').AsString;
         // 이부분 부터 델파이에 맞게 봐주시면 됩니다.
         //Field3의 길이를 구한다.
           $getStr=Leg(Field3);
          // Field3내에 있는 탭의 갯수를 구한다.
           $countTAB = TAB의 갯수
           $array = 탭으로 짜른 단어들의 배열
         // for문으로 탭갯수만큼 loop를 건다.
        for ( $i=0 ; $i< $countTAB ; $i++)
          {
              
             WriteLn(MyFile, Field1,#9,Field2,#9,$array[$i]);
           }
         // 여기까지...
         Query1.Next;
       until Query1.EOF = True;
     finally
       CloseFile(MyFile);
     end; // Try...Finally end
end;