一个关于存为文本文件的问题,help!(100分)

DateTime:=Time;
AssignFile(F,'1.txt');
Reset(F);
while not SeekEof(f) do
begin
Read;
end;
Writeln(F,DateToStr(Date)+' '+TimeToStr(DateTime));
for i:=1 to Memo1.Lines.Count do
begin
Writeln(F,Memo1.Lines);
end;
CloseFile(F);
编译通过,运行时启动提示I/o错误?这是怎么会事?

上面的代码有两处错误
while not SeekEof(f) do
begin
Read;
end;
如果文件不是空的将会造成死循环。
Reset(F);是以只读方式打开文件，所以无法写入数据。
解决方法
procedure TForm1.Button1Click(Sender: TObject);
var
SL:TStringList;
begin
SL:=TStringList.Create;
sl.LoadFromFile('1.txt');
sl.Add(DateToStr(Date)+' '+TimeToStr(Time));
for i:=1 to Memo1.Lines.Count do
begin
sl.add(Memo1.Lines);
end;
sl.SaveToFile('1.txt');
sl.free;
end;

鲜人：如果要继续请提前，否则请结束问题，谢谢

接受答案了.