Code:

procedure TForm1.Button2Click(Sender: TObject);

{©Drkb v.3(2007): www.drkb.ru}

const

Start = 49;

AnEnd = 57;

ArLen = AnEnd - Start + 1;

var

M: TMemoryStream;

Buff: array of Byte;

I: Integer;

begin

SetLength(Buff, ArLen);

for I := 0 to ArLen - 1 do

   Buff[I] := Start + I;

M := TMemoryStream.Create;

try

   M.Write(Buff[0], ArLen);

   M.SaveToFile('c:\test.txt');   

finally

   M.Free;

end;

end;