ListView in einen Stream speichern und laden

[Lannes]

Hallo,

denke mal das fehlt:

Delphi-Quellcode:

procedure TForm1.LoadComponentFromStream(Stream: TStream; 
  Component: TComponent); 
begin
  Stream.Position := 0;//<---------- 
  Stream.ReadComponent(Component); 
end;