Как переключить CapsLock ?

var
KeyState: TKeyboardState;
 
begin
GetKeyboardState(KeyState);
if (KeyState[VK_CAPITAL]=0) then KeyState[VK_CAPITAL]:=1;
end;

  PStrRec = ^StrRec;
  StrRec = packed record
  {$IF defined(CPU64BITS)}
    _Padding: Integer; // Make 16 byte align for payload..
  {$ENDIF}
    codePage: Word;
    elemSize: Word;
    refCnt: Integer;
    length: Integer;
  end;
 
 
const
  skew = SizeOf(StrRec);
  rOff = SizeOf(StrRec); { codePage offset }
  overHead = SizeOf(StrRec) + SizeOf(Char);
  CP_UTF16 = 1200;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  with TDialogForm.Create(Application) do
  begin
    if ShowModal = mrOk then ShowMessage(DialogInput.Text);
    // .....
    Free;
  end;
end;

unit UnitDialog;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
 
type
  TDialogForm = class(TForm)
    DialogInput: TLabeledEdit;
    Button1: TButton;
    Button2: TButton;
  end;
 
implementation
 
{$R *.dfm}
 
end.

procedure TMainForm.Button1Click(Sender: TObject);
begin
  with TDialogForm.Create(Application) do
  begin
    CheckBox1.Checked:= Image1.Visible;
    if ShowModal = mrOk then Image1.Visible:= CheckBox1.Checked;
    // .....
    Free;
  end;
end;