Ой ли
гуглил?
Вот например, как записать строчку в файл через поток
Код:
uses
Classes, Sysutils;
...
var
s: string;
begin
s:= 'Bla-bla-bla';
{
fmCreate fmOpenRead fmOpenWrite fmOpenReadWrite fmShareCompat
fmShareExclusive fmShareDenyWrite fmShareDenyRead fmShareDenyNone
}
with TFileStream.create('Имя файла', fmOpenWrite) do
try
Write(pointer(s)^, Length(s));
// что-то ещё делаем
Finally
free;
end;
end;