1:
2:
3:
4:
5:
6:
7:
8:
9:

    AssignFile(F, DlgOpen.FileName);
    Reset(F);
    If FileSize(F) > 100000000 Then Begin
     CloseFile(F);
     MessageDlg('Fehler: Datei ist zu gross !',
     mtError, [mbOk], 0);
     Exit;
    End;
    CloseFile(F);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var sr: TSearchRec;
begin
  Result := 0;
  if FindFirst(Filename, faAnyFile and not faDirectory, sr) = 0 then
  begin
    Result := sr.Size;
    FindClose(sr);
  end;
end;