Запись и чтение файлов Delphi

[DEFENEK]

Выдает ошибку в чтение из файла помогите разобраться пожалуйста.
Запись

AssignFile(b,'E:\res.exe');
   if fileexists('E:\res.exe') then
    begin

     append(b);
     WriteLn(b,k);
     closefile(b);
    end
   else
    begin
     Rewrite(b);
     WriteLn(b,k);
     CloseFile(b);

Чтение

begin
q:='5';
w:='4';
e:='3';
r:='2';
 AssignFile(t,'E:\res.exe');
   reset(b);
  while not eof(b) do
   begin
    readln(b,res);
   if res=(k ) then
    begin
    if k=q then   Button4.Enabled:=true
    else showmessage('текст')


    end;

[DM_bite]

Что за ошибка? Какие данные считываешь? Ответь на эти вопросы

После

showmessage('текст')

; забыл.

[IT-man]

Перед end-ом ; не обязательно ставить

[DEFENEK]

исправил ошибку.

[DEFENEK]

Не подскажети какая команда текстовый файл удаляет?

[IT-man]

Функция

deletefile(filename);

удаляет файл с диска. При успешном удалении возвращает true а при невозможности удаления или не существовании файла false