¿Cómo puedo usar la programación Delphi para que sea posible ingresar solo caracteres chinos en un cuadro de entrada, pero no números u otros caracteres?

Para ser más precisos, debería ser

En el evento OnKeyPress de Edit

procedimiento TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

p>

comenzar

si Ord(Key)=8 y luego salir

if (Ord(Key)<127) o ((Longitud); (Edit1.Text)>0 ) y (Ord(Edit1.Text[1])>127)) luego

Key:=#0

end;Escribe el código anterior; .