Classes em Delphi

Type  TValidar = classpublic  Class function Data(Data: String; ShowMsg: Boolean;
 Menssagem: String; 
 Componente: TObject = nil): Boolean;//Método estático.  
 
 Class function CampoObrigatorio(Campo: String; ShowMsg: Boolean; Menssagem: String;
  Componente: TObject = nil): Boolean;//Método estático.  
  constructor Create;
 end;

{ TValidar }
// *****************************************************************************// Função para validaçáo de campo obrigatório// *****************************************************************************

Class function TValidar.CampoObrigatorio(Campo: String; ShowMsg: Boolean;  Menssagem: String; Componente: TObject): Boolean;
    begin  
        if  Campo = '' then    
            begin    
                Result := false;
                if (Componente is TWinControl) then
                  TWinControl(Componente).SetFocus;
                if ShowMsg then
                  Application.MessageBox(Pchar(Menssagem), 'Atenção',MB_ICONINFORMATION + MB_OK);
                end
              else
                Result:=True;
            end;

// *****************************************************************************// Constructor para inicialização da variável FGravar// *****************************************************************************

constructor TValidar.Create;
begin
   Inherited Create(); //Chama o método Create da super Classe, no caso, TObject.//FGravar := True;
end;

// *****************************************************************************// Função para validaçáo de datas// *****************************************************************************
Class function TValidar.Data(Data: String; ShowMsg: Boolean; Menssagem: String; Componente: TObject = nil): Boolean;
varAux:  TDateTime;
begin
  if (TryStrToDate(Data,Aux))then
    begin
        Result := True
    end
  else
    begin
      Result := False;
      if (Componente is TWinControl) then
        TWinControl(Componente).SetFocus;
      if ShowMsg = True then
        Application.MessageBox(Pchar(Menssagem), 'Atenção',MB_ICONINFORMATION + MB_OK);
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if TValidar.Data(Edit1.Text,true,'Data Inválida',Form1.Edit1) then //Como disse, não precisa instanciar a classe, basta chamar o NomeDaClasse.NomeMétodo.  
        ShowMessage('Gravar')
    else  
        ShowMessage('Não Gravar');
    end;
end.

function TValidar.CampoObrigatorio(Campo: String; ShowMsg: Boolean;
  Menssagem: String; Componente: TObject): Boolean;

procedure TForm1.Button1Click(Sender: TObject);
var
validar:TValidar;
begin
validar:=TValidar.Create;
try
  if validar.Gravar then
    Showmessage('Grava ou Não ???')
  else
    Showmessage('Pq não Grava');
finally
  validar.Free;
end;
end;

Validar.Data(Edit1.Text,true,'Data Inválida',Form1.Edit1);

procedure TForm1.Button1Click(Sender: TObject);

var
Validar : TValidar;

begin

Validar := TValidar.Create();

Validar.Data(Edit1.Text,true,'Data de Nascimento Inválida',Form1.Edit1); </span>

Validar.Data(Edit2.Text,true,'Data de Cadastro Inválida',Form1.Edit2);

Validar.Data(Edit3.Text,true,'Data LALALA Inválida',Form1.Edit3);

Validar.Data(Edit4.Text,true,'Data BLABLABLA Inválida',Form1.Edit4);

Validar.Data(Edit5.Text,true,'Data TATATA Inválida',Form1.Edit5);</span>

if Validar.Gravar then

    ShowMessage('Gravar') 

Aqui usei um exemplo de um método simples, não vou chamar nenhuma menssagem aqui,
seria por exemplo um inherited de uma operação de post, caso a
property gravar ainda fosse verdadeira...

FreeAndNil(Validar);

end; 

if Gravar = False then

exit

else

//Código a Validar

try
Validar.Data(Edit1.Text,true,'Data de Nascimento Inválida',Form1.Edit1);  //1
Validar.Data(Edit2.Text,true,'Data de Cadastro Inválida',Form1.Edit2); //2
Validar.Data(Edit3.Text,true,'Data LALALA Inválida',Form1.Edit3); //3
Validar.Data(Edit4.Text,true,'Data BLABLABLA Inválida',Form1.Edit4); //4
Validar.Data(Edit5.Text,true,'Data TATATA Inválida',Form1.Edit5); //45

ShowMessage('Gravar') 
except
On e:SUAEXCECAO do
begin
ShowMessage('Não foi possivel Gravar') 
end;

raise EAbort.Create('Data Inválida');