Rutina para Validar Campos

[ecfisa]

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.