type
  TRec = record
    a: byte;
    s: Double;
  end;
  PRec = ^TRec;
const
  InvRec: TRec = (); // будет заполнена позже

implementation

{$R *.dfm}

function IsInvRec(const rec: TRec): Boolean;
begin
  Result := CompareMem(@rec, @InvRec, SizeOf(TRec));
end;

// функция, которая может вернуть невалидную запись
function GetRec: TRec;
begin
  Result := InvRec;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  r: TRec;
begin
  FillChar(PRec(@InvRec)^, SizeOf(TRec), $FF); // иниц константу; для реального кода надо в секцию init модуля
  r := GetRec;
  if IsInvRec(r) then ShowMessage('Boo');
end;

var rec: TRec;
..
rec := Container.Find(condition);
if not IsNullRec(rec) then...

var rec: TRec;
..
if not Container.Find(condition, rec) then...