TFileStream-Probleme

[Daniel]

Also folgender Code funktioniert bei mir unter Delphi 6.02:

Code:

procedure TForm1.Button3Click(Sender: TObject);
var MyStream : TFileStream;
begin
  If OpenDialog1.Execute Then
  Begin
    MyStream:= TFileStream.Create( OpenDialog1.Filename, fmOpenReadwrite );
    //
    ShowMessage( IntToStr(MyStream.Size) + ' Bytes gelesen' );

    MyStream.Free;
  End;
end;

Hast Du vielleicht nochmal die genaue Fehlemeldung?

Grüße,
Daniel