Ließt BlockRead aus Datei nich richtig ein?

[PAX]

Hallo!

Ich glaube mein Computer ist verhext ! Ich hab eine Zeichenkette in eine Datei undefinierten Typs geschrieben, und wenn ich die wieder in einen String einlese, + den Inhalt von einem Label mit ihm angleichen möchte, bricht das Programm genau in diesem Moment mit einer Zugriffsverletzung ab. Ich weiß nich mehr weiter. Hier der betreffende Quellcode:

Delphi-Quellcode:

Var f:file; t,s:string; result:integer;
begin
 assignfile(f,'c:\f.txt');
 rewrite(f); s:='blob';
 blockwrite(f,s,1);
 closefile(f);
 reset(f);
 blockread(f,t,1,result);
 closefile(f);
 label1.caption:=t;
end.

Ich bin gespannt, worans liegt.

PAX