TidTCP records senden/empfangen

[XXcD]

Ich habe mich jetzt gerade nochmal mit dem Problem beschäftigt und wollte noch gerne ein Bild zusätzlich in den Stream laden.
Nur leider bekomme ich das nicht so richtig hin.

Delphi-Quellcode:

  type
  TProfile = class(TObject)
  id: String;
  name: string;
  image: TMemorystream;
  procedure LoadFromStream(AStream: TStream);
  procedure SaveToStream(AStream: TStream);
  end;

...

procedure TProfile.SaveToStream(AStream: TStream);
var
  iLen: Integer;
begin
  {String ID}
  iLen := Length(ID);
  AStream.Write(iLen, SizeOf(iLen));
  AStream.Write(ID[1], iLen);
  {String Name}
  iLen := Length(Name);
  AStream.Write(iLen, SizeOf(iLen));
  AStream.Write(Name[1], iLen);

  {TBitmap Picture}
  AStream.Write(image, SizeOf(image));
end;

procedure TProfile.LoadFromStream(AStream: TStream);
var
  iLen: Integer;
begin
  {String ID}
  AStream.Read(iLen, SizeOf(iLen));
  SetLength(ID, iLen);
  AStream.Read(ID[1], iLen);
  {String Name}
  AStream.Read(iLen, SizeOf(iLen));
  SetLength(Name, iLen);
  AStream.Read(Name[1], iLen);

    {TBitmap Picture}
  AStream.Read(image, SizeOf(image));
end;

Benutzt habe ich zum speichern einen Tmemorystream:

Delphi-Quellcode:

Profile:= TProfile.Create;
Profile.id:='1';
Profile.name:='huhu';
Profile.image:= TMemoryStream.Create;
Profile.image.loadfromfile(ExtractFilePath(ParamStr(0))+'Images/bg_Eingangshalle.png');
Stream:= TMemoryStream.Create;
Profile.SaveToStream(Stream);

Und das auslesen habe ich so gestaltet:

Delphi-Quellcode:

Profile1:= TProfile.Create;
Profile1.LoadFromStream(stream);
WriteLn(Profile1.id);
WriteLn(Profile1.name);
Profile1.image:= TMemoryStream.Create;
Profile1.image.SaveToFile('C:\Test.png');

Das ganze ist erstmal zum testen, beim speichern kommt kein fehler.
Allerdings beim auslesen werden unendlich neue Zeilen in der Konsole erzeugt.
Wo liegt denn da der Fehler?