Escribir mayuscula minuscula

[ecfisa]

Perdón sisne, me confundí al interpretar tu mensaje (no sé donde tengo la cabeza...)

Para que lo que escriban quede tál como lo ingresan, Bloq Mayus tiene que estar desactivada.
Para detectar si esta o no desactivada y cambiar el estado podes usar este codigo:

procedure TForm1.FormCreate(Sender: TObject);
var
  KeybEstat: TKeyboardState;
begin
   GetKeyboardState(KeybEstat); // Tomar estado teclado
   if KeybEstat[VK_CAPITAL] = 1 then   // Bloq Mayus presionado (0= no)
     CambiarCapital;     // Cambiar
end;
 
{ Cambia estado Bloq Mayus }
procedure CambiarCapital;
begin
   //Presionar Bloq Mayús
   keybd_event(VK_CAPITAL,0,KEYEVENTF_EXTENDEDKEY,0);
   //Soltar Bloq Mayús
   keybd_event(VK_CAPITAL,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

En este ejemplo hice que, si Bloq Mayus esta activada se desactive al entrar al Form, pero podrías Activar/Desactivar, al entrar o salir de un componente con sólo llamar a CambiarCapital nuevamente.

Saludos.