делаешь раз:
Код:
var
Form1: TForm1;
m: TMemoryStream;
делаешь два:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
m:= TMemoryStream.Create;
end;
делаешь три:
гдето в программе работаешь с потоком. Он будет храниться все время жизни формы.
делаешь четыре:
Код:
procedure TForm1.FormDestroy(Sender: TObject);
begin
m.Free;
end;