Validar Ingreso De Letras En Un Edit

[MaMu]

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