TMemoryStream - Create Problem

[FreewareFire]

Also, er spuckt mir keinen Fehler aus, aber das Speicherproblem ist nach wie vor!
Wenn ich einmal auf die Datei klicke ist alles OK, nicht aber beim zweiten mal.
Das Programm schießt von 9 MB kurzzeitig auf über 600 MB! - Das System zeigt mir
dann, dass es 1000 MB zugesicherten Speicher verwendet.


Hier der derzeitige Code:

Delphi-Quellcode:

procedure TForm1.FLISTClick(Sender: TObject);
begin   

if Assigned(memstr) then 
begin
  memstr.LoadFromFile(STV1.Path + '\' + FList.Items.Strings[FList.ItemIndex])
end
else 
begin 
  memstr := TMemoryStream.Create;
  memstr.LoadFromFile(STV1.Path + '\' + FList.Items.Strings[FList.ItemIndex]);
end;

Was ist das? Das ist doch wirklich zum

Danke!

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]