文件问题，怎么解决？(50分)

我有一个文件，格式如下
邮编：526600 邮编：322000
广东省德庆土特产进出口公司 献荣工艺制品有限公司
广东省德庆县朝阳东路93号土出大厦 浙江省义乌市廿温开发区
谢健德 负责人收
我想把左边的
邮编：526600
广东省德庆土特产进出口公司
广东省德庆县朝阳东路93号土出大厦
谢健德
当成一条数据库插入到数据库中，同样也把右边的当成一条记录插入到数据库中，我应该怎么分离？

文本文件？按行读取再写入不就完了吗？每四行一个循环。

procedure TForm1.Button1Click(Sender: TObject);
var
myFile:TextFile;
//适当的调整string长度
zip1,address1,company1,cp1:String[53];
zip2,address2,company2,cp2:String[53];
i:Integer;
begin
//你的文件名
AssignFile(myFile,'c:/sj.txt');
Reset(myFile);
try
i:=0;
While not Eof(myFile) do
begin
if i=0 then ReadLn(myFile,zip1,zip2);
if i=1 then ReadLn(myFile,address1,address2);
if i=2 then ReadLn(myFile,company1,company2);
if i=3 then Readln(myFile,cp1,cp2);
i:=i+1;
end;
finally
CloseFile(myFile);
end;
memo1.Lines.Add('zip:'+zip1+' address:'+address1+' company:'+company1+' cp:'+cp1);
memo1.Lines.Add('zip:'+zip2+' address:'+address2+' company:'+company2+' cp:'+cp2);
end;

接受答案了.