[vtdeleon]

saludos

Código Delphi [-]
procedure cualquiera;
var
  n:integer;
begin
  for n:= 0 to componentcount-1 do
    if components[n] is tedit then
      if tedit(components[n]).Text = '' then 
         ShowMessage('No se puede dejar vacio, ponga algún dato');
end;