ValidaCampos

gistfile1.pas

 lnCount: integer;
begin
Result := false;
for lnCount := 0 to ComponentCount - 1 do
 begin
  if Components[lnCount] is TLabeledEdit then
    if TLabeledEdit(Components[lnCount]).Text = '' then
       begin
          MessageDlg('Existe campo obrigatorio em branco!', mtInformation, [mbOK], 0);
          Result := true;
          exit;
       end
        else
         begin
           Result := false;
         end;


  if Components[lnCount] is TMemo then
    if TMemo(Components[lnCount]).Lines.Text = '' then
       begin
          MessageDlg('Existe campo obrigatorio em branco!', mtInformation, [mbOK], 0);
          Result := true;
          exit;
       end
       else
         begin
           Result := false;
         end;
 end;