Hola oscarac.
A mi pareciera funcionarme bién de este modo también:
Código Delphi
[-]
...
implementation
function TForm1.ValidarCampo(Campo: Variant): Boolean;
begin
Result:= Campo <> '';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not ValidarCampo(Label1.Caption) then
ShowMessage('campo vacio');
if not ValidarCampo(Memo1.Text) then
ShowMessage('campo vacío');
if not ValidarCampo(Edit1.Text) then
ShowMessage('campo vacío');
end;
Pero no sé si es lo que buscas...
Saludos.