محتوای یک فایل متنی درRichEdit

[smoslamm]

سلام علیکم

برنامه نوشتم که تمام محتوای یک فایل متنی را درRichEditنمایش دهد
که این برنامه شامل یک formودوتا دکمه(Button)ویکEditویکRichEdit
است که دردکمه اول(Button1)کدزیر

var TxtFile:TextFile;
s:String;
begin
AssignFile(TxtFile,'c:\1');
Reset(TxtFile,s);
while not Eof(TxtFile) do
begin
Readln(TxtFile);
RichEdit1.Lines.Add(s);
end;
CloseFile(TxtFile);

end;
ودکمه دوم(Button2)کد زیر:


var TxtFile:TextFile;

begin
RichEdit1.Lines.Add(Edit1.Text);
AssignFile(TxtFile,'c:\1');
Reset(TxtFile);
Rewrite(TxtFile);
Writeln(TxtFile,RichEdit1.text);
CloseFile(TxtFile);

end;
را نوشتم اما هنگام اجرا (run)و هنگام فشار دادن دکمه ها خطا میدهد
اشکال این برنامه چیست؟

[Delphi-Man]

برنامه اولی رو به شکل زیر اصلاح کنید:


var TxtFile:TextFile;
s:String;
begin
AssignFile(TxtFile,'c:\1.txt');
Reset(TxtFile);
while not Eof(TxtFile) do
begin
Readln(TxtFile,s);
RichEdit1.Lines.Add(s);
end;
CloseFile(TxtFile);
end;


برنامه دوم هم مشکلی نداره فقط حواستون به نام فایل باشه.