如何用DELPHI把文本a.txt转化成文本b.txt，谢谢！
a.txt内容：(注：以sulll=开始，end结束的循环体）
sulll=1111;
this is text
date1 date2 date3 date4
li12        aab
            abc
end
sulll=2222;
this is text
date1 date2 date3 date4
li13        aab
            bbc
            ccc
end
sulll=3333;
this is text
date1 date2 date3 date4
li14        bbb
            abc
end

b.txt内容：
sulll=1111,li12,aab,abc;
sulll=2222,li13,aab,bbc,ccc;
sulll=1111,li14,bbb,abc;

关键是从a.txt到b.txt内容的格式要发生变化才行。（注：a.txt的格式是固定的）

哪位大侠，帮帮，我是新手，只会把一个文件复制到另一个文件中，不会判断、循环、改变文档结构，谢谢各位了，帮帮我！

procedure TForm1.Button1Click(Sender: TObject);
var
    myfile:Textfile;
    s:String;
begin
AssignFile(myfile,'a.txt');
Reset(myfile);
while not eof(myfile) do
begin
    Readln(myfile,s);
    Memo1.Lines.Add(s);
end;
CloseFile(myfile);
end;

procedure TForm1.Button3Click(Sender: TObject);   //写文件
var
stxt:TextFile;
begin
AssignFile(stxt,'b.txt');
Rewrite(stxt);
Writeln(stxt, Memo1.Text);
CloseFile(stxt);
end;

哪位大侠？帮帮忙吧！