[Julià T.]

Una manera podria ser esta

function EvaluaCaracteres (Nombre:String):boolean;
var
  I:integer;
begin
  Result := False;
  for I := 0 to Length(Nombre) do
    If not( (Nombre[i]) in [0..9]) or (Nombre[i]) in ['a'..'z']) or (Nombre[i]) in ['A'..'Z']))  then exit;
      Result := True;
end;