Stream mit Indy versenden

[Manzoni]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var test : TMemoryStream;
    zeiger : ^integer;
    inte,
    inte2 : integer;
begin
  test:=tmemorystream.Create;
  inte:=4;
  test.Write(inte,sizeof(inte));
  test.Position:=0;
  zeiger:=test.Memory;
  inte2:=moi^;
  Label1.Caption:=IntToStr(inte2);
end;