Es sollte auch ohne den Umweg über den STream gehen:
Delphi-Quellcode:
function GetFileSize(const FileName: string): DWord;
var
fd: TWIN32FindData;
begin
if Windows.FindClose(Windows.FindFirstFile(PChar(FileName), fd)) then
Result := fd.nFileSizeLow
else
Result := 0;
end;
Frank