[kda6666]

Привет всем.
Ребята, помогите пожалуйста, в чем ошибка....? Никак не пойму...
Есть следующий код:
type
TForm1 = class(TForm)
.....
CheckBox1: TCheckBox;
.....

var
.....
tmpCheck:boolean;
f:text;
....
Form1: TForm1;

.....

procedure TForm1.Button1Click(Sender: TObject);
begin
............
system.Assign(f,'tmp.txt');
rewrite(f);
writeln(f,tmpcheck);
checkbox1.Checked:=tmpcheck;
writeln(f,tmpCheck);
system.Close(f);
.............
end;

.....

end.
Вопрос: Почему в файле tmp.txt содержатся следующие строки?
TRUE
FALSE

В чем здесь ошибка???!!!Файл нигде больше не используеться.