I/O error 32 - co to za osioł?

Witam!
Mam taki kod j.n. i wyskakuje mi bład: "I/O error 32". Co to za osioł? :-/ Proszę o pomoc and z góry thx.

if pos('bla',s)<>0 then begin
showmessage('wykryło bla');
if fileexists('c:\bla.txt') then begin

AssignFile(TF, 'c:\bla.txt');
append(TF);
Writeln(TF, s)
end
else begin
AssignFile(TF, 'c:\bla.txt');
rewrite(TF);
Writeln(TF, s);
end;
end
else
showmessage('sssssssssssss');
end

;

// Delphi->Help->Runtime Errors - ŁF

po pierwsze: Bierz kod w tagi < delphi> < /delphi >
po drugie: masz w sekcji

var

zmieinna TF: Text albo TF: File ?
(

var
TF: Text;

)

//Faktycznie, nie zobaczylem ShowMessage, myslalem ze to czysty Pascal...

nie zamykasz pliku

co do zmiennej to raczej: [code]textfile[/code]