Großes Icon in Stream speichern

[Astat]

Hallo patti, anbei dein abgeänderter Code. Sieh dir nochmal in aller Ruhe deinen geposteten Code durch,
da ist einiges nicht ganz korrekt. Solltest du dann noch fragen haben, meld dich wieder.

Delphi-Quellcode:

function WriteIconToStream(AIcon: TIcon): TStream;
begin
  Result := TMemoryStream.Create;
  AIcon.SaveToStream(Result);
  AIcon.Free;
  AIcon := nil;
end;

function ReadIconFromStream(AStream: TStream): TIcon;
begin
  AStream.Seek(0, 0);
  Result := TIcon.Create;
  Result.LoadFromStream(AStream);
  AStream.Free;
  AStream := nil;
end;

var
  AIcon: TIcon;
  AStream: TStream;
begin
  AIcon := TIcon.Create;
  AIcon.LoadFromFile('C:\test.ico');
  AStream := WriteIconToStream(AIcon);

  AIcon := ReadIconFromStream(AStream);
  self.Canvas.Draw(150, 150, AIcon);
end.

lg. Astat