Delphi-Quellcode:
AssignFile(F, 'C:\datei.txt');
{$I-}
ReWrite(F);
Write(F, T);
{$I+}
tmp := ioresult;
if tmp = 0 then
Showmessage('Erfolgreich! ioresult=' + IntToStr(tmp))
else
Showmessage('nicht Erfolgreich! ioresult=' + IntToStr(tmp));
wenn das jetzt nur "nicht Erfolgreich! ioresult=103" ausgibt, dann probier es erstmal mit einem anderem Verzeichnis.
@taaktaak: wer sagt das?
PS: bei mir läuft dein Code (von da ganz oben) fehlerlos durch.