Hizo pif! con un CheckBox, cuando me acordé de la función
VarIsEmpty...
Creo que así te va a funcionar:
Código Delphi
[-]
function TForm1.ValidarCampo(Campo: Variant): Boolean;
begin
Result:= VarIsEmpty(Campo);
end;
Permite por ejemplo:
Código Delphi
[-]
var
v: Integer;
begin
if not ValidarCampo(Edit1.Text) then
ShowMessage('campo vacío');
if not ValidarCampo(CheckBox1.Checked) then
ShowMessage('no chequeado');
if not ValidarCampo(v) then
ShowMessage('sin valor');
También tenés la función
VarIsNull que compara si el valor es Null.
Saludos.