[NumLock]

и на этот вопрос в той теме был ответ:

Сообщение от NumLock

естествено можно Variant использовать.

Код:

procedure CounterStrike(date1: Variant);
begin
  if not VarIsNull(date1) then ShowMessage(DateToStr(date1))
  else ShowMessage('Null');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CounterStrike(Now);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CounterStrike(Null);
end;