Validadores para Delphi

[PepeLolo]

uff que paso con el código

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 TEditValida(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.