Hola,
Pues lo tienes fácil, tu mismo lo estas diciendo; bajo esa premisa yop me crearía una unit en el que incluiría las validaciones de los componentes que te fueran haciendo falta. Ejemplo:
Validando un TEdit:
Código Delphi
[-]procedure T
EditValida(Sender :TObject; Label, mensaje:String); begin IF TEdit(Sender).Text = '' then begin TEdit(Sender).SetFocus; Raise Exception.Create('El campo ' + QuotedStr(label) + ' ' + mensaje); end; end.
Validando un TDBEdit:
Código Delphi
[-]procedure TEditValida(Sender :TObject; mensaje:String); begin IF TDBEdit(Sender).Text = '' then begin TDBEdit(Sender).FocusControl; Raise Exception.Create('El campo ' + QuotedStr(TDBEDit(Sender).DisplayLabel) + ' ' + mensaje); end; end.
Así sucesivamente con todas las clases de tipos de datos a validar que necesites.