Fijate algo asi, como para no deformar mucho lo que haz hecho tu
Código Delphi
[-]
function ValidaEdit(cadena:string):string;
var i:integer;
begin
for i:=1 to Length(cadena) do
begin
if ((cadena[i] in ['a'..'z'])or(cadena[i] in ['A'..'Z']))
then Result:='Verdadero'
else Result:='Falso';
end;
end;
y un ejemplo de llamada
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ValidaEdit(Edit1.Text));
end;
Ojo con las funciones lógicas, debes aplicarlas utilizando lógica simbólica y cálculo proposicional
Saludos
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;