In einen TFileStream speichern und laden

[dataspider]

Also:

Delphi-Quellcode:

procedure TDatein.LoadFromStream;
var
  Stream : TFileStream;
begin
  Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + 
           'Speicher\Daten\1.OKM', fmOpenRead);
  try
    Form2.ListBox1.Items.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Frank