[sdiaz1983]

Compañeros del foro, quiero mostrarles el codigo de la clase que les comente, ya me funciona, de todos modos una vez mas mil gracias a todos y que Dios los proteja a ustedes por su paciencia, mil gracias.

Código Delphi [-]
unit valletra;
interface
uses Classes, DBTables, QControls, SysUtils,Windows, Messages, Variants,Graphics, Controls, Forms, Dialogs, StdCtrls;
  Type
  Tvalletra= class(TWidgetControl)
  private
   letr: String;
   bandera: Integer;
  public
  property letra: String read letr write letr;
  property band: Integer read bandera write bandera;
  procedure validarn(letra: String);
  end;
implementation
  procedure TValletra.validarn(letra:String);
  var b: String;
  var i: Integer;
  var c: Integer;
  begin
  letr:=Letra;
  bandera:=c;
  c:=0;
   for i:=1 to length(letra) do
     begin
     if not ((letra[i] in ['a'..'z'])or (letra[i] in ['A'..'Z'])) then
       begin
       c:=c+1;
       end;
     end;
      bandera:=c;
      if(c<>0) then
      MessageDlg('INGRESO INCORRECTO',mtError,[mbOk],0);
  end;
end.