1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  T: TFileStream;
  laenge: integer;
begin
  T := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'conversion\zzzz.txt', fmCreate);
  while ... do
  begin
    Zeile := inttostr(regel_i) + ';' + inttostr(regel_j) + ';' + inttostr(x) + ';' + inttostr(y) + #13#10;
    laenge := length(Zeile);
    T.Write( Zeile ,laenge)
  end;
  T.Free;
end;					

1:

,mœ ´�š øaÜ c   �   ?ƒPmœ ´�š p¨ß c   ‘   _‚´�š ,mœ °× d   �   Àz@mœ ,mœ p¨					

1:
2:
3:

T.Write( Zeile[1] ,laenge);
oder
T.Write( pchar(Zeile)^ ,laenge);