vS:='test'; FLogFileStream:=TFileStream.Create(FLogFilename,fmCreate or fmOpenWrite); FLogFileStream.Write(Pointer(vS)^,Length(vS)); FLogFileStream.free;