Código Delphi [-] If Length(Edit1.Text) > 0 then Grabar else ShowMessage('Campo vacio no se grabará');
If Length(Edit1.Text) > 0 then Grabar else ShowMessage('Campo vacio no se grabará');