关于邮件保存问题？ 急!!!!哪位大侠帮帮忙。300分奉上!!! (300分)

我现在做了一个邮件收发程序，类似于foxmail的功能，但是现在我不知道用什
么方法保存邮件比较好，能不能向foxmail那样，连同邮件附件一起保存在有限的几个文件
中。
如果有，怎么保存。我愿送300分。

将接受的文件按照foxmail的结构一样，采用间隔字符，然后将原始信息全部写入文件，
保存文件，采用
var

FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file }

Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
+ ' bytes...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;

var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer
begin
if OpenDialog1.Execute then
begin
try
iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead = FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);

for i := 0 to iBytesRead-1 do
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[1,i+1] := Buffer;
StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer));
end;
finally
FreeMem(Buffer);
end;
end;

等等都可以保存文件，

不会吧，你能写出邮件收发程序，不会连这个问题都解决不了吧。
你用一个.MDB文件来存放邮件不就行了！
这类邮件客户端多数都使用了数据库。
更典型的例子是NOTES就是利用数据库的脚本实现的整个邮件客户端。

还有，我正想写一个发信程序，但现在能找到的代码都是针对没有发信认证的代码，
但是现在多数SMTP服务都要求发信认证，你知道如何实现SMTP的发信论证吗？
我己经在这个论坛提出了这个问题，链接是：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=904340
谢了。

对，用数据库！！！！

to happyzxj:
因为现在许多东东都都高手们做成控件，我只要调用就可以了，如果有什么不懂的地方，
查一查以前的贴子，基本上都可以搞定。

这个程序是对邮件自动接收，经过处理后在自动发出，整个过程不需人工参与，且产生的
数据较多，如果用mdb是否能满足要求呢？

多人接受答案了。

我有发信的控件，来找我要，认证的，