unit nvNullObjects; {$mode objfpc}{$H+} interface uses contnrs, SysUtils; type EHelpBitmapException = class(Exception); // forward declaration THelpBitmap = class; TImageList = class(TObjectList) public procedure Add(ABitmap: THelpBitmap; AParam2: TObject); end; THelpBitmap = class(TObject) public class function CreateFromHelpFile(AData: pointer): THelpBitmap; procedure LoadFromResourceName(const AName: string); end; implementation { TImageList } procedure TImageList.Add(ABitmap: THelpBitmap; AParam2: TObject); begin // end; { THelpBitmap } class function THelpBitmap.CreateFromHelpFile(AData: pointer): THelpBitmap; begin Result := nil; end; procedure THelpBitmap.LoadFromResourceName(const AName: string); begin // end; end.