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.