hola, prueba de hacer algo como
Código Delphi
[-]
char *s;
TFileStream *T;
T = TFileStream->Create("c:\test.txt");
getmem(s,255*sizeof(char));
...
strcopy(s,"1234567890");
T->Write(s,4);
dispose(s);
o bien
Código Delphi
[-]
string s;
s = "asdfjsdjfasdj";
...
T->Write(@s,4); ...