Создать редактор горячих клавиш. В нем нужно задавать Горячую Клавишу и ей сопоставить текстовую строку

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
type Thotkeyeditor = class
protected
public
k1,k2,k3: array of byte;
strings: Tstringlist;
constructor create;
function test: string;
procedure addnew(key1,key2,key3: byte; s: string);
procedure loadfromfile(FN:string);
procedure savetofile(FN:string);
end;
 
 
 
 
constructor Thotkeyeditor.create;
begin
inherited create;
strings:=Tstringlist.Create;
end;
 
function Thotkeyeditor.test;
var i:uint;
begin
for i:=0 to system.Length(k1)-1 do
begin
if  (windows.GetKeyState(K1[i] )<>1)and(windows.GetKeyState(K1[i])<>0)and
(windows.GetKeyState(K2[i] )<>1)and(windows.GetKeyState(K2[i])<>0)and
(windows.GetKeyState(K3[i] )<>1)and(windows.GetKeyState(K3[i])<>0) then  begin
result:=strings[i];
exit;
   end;
end;
end;
 
procedure Thotkeyeditor.loadfromfile;
var S:tstringlist;
x,y,z:byte; nS,s1:string;
i,j:uint;
 
begin
s:=Tstringlist.Create;
if sysutils.FileExists(fn)then s.LoadFromFile(fn);
for i:=0 to s.Count-1 do begin
ns:='';
x:=ord(S[i][1]);
y:=ord(S[i][3]);
Z:=ord(S[i][5]);
j:=6;
repeat
 
ns:=ns+S[i][j];
  inc(j);
until S[i][j]=#9;
addnew(x,y,z,ns);
end;
end;
 
procedure Thotkeyeditor.savetofile;
 var i:uint;
 s:Tstringlist;
begin
s:=Tstringlist.Create;
for i:=0 to strings.Count -1 do begin
s.Add(chr(k1[i])+#32+chr(k2[i])+#32+chr(k3[i])+strings[i]+#9);
end;
s.SaveToFile(FN);
s.Free;
end;
 
 
procedure Thotkeyeditor.addnew;
var x,x1,x2,x3: integer;
begin
x:=strings.Count;
x1:=system.Length(k1);
x2:=system.Length(k2);
x3:=system.Length(k3);
strings.Add(S);
system.SetLength(k1,x1+1);
k1[x1]:=key1;
system.SetLength(k2,x2+1);
k2[x2]:=key2;
system.SetLength(k3,x3+1);
k3[x1]:=key3;
end;
 
 
var He: Thotkeyeditor;
 
 
//ShowAbout;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
he:=Thotkeyeditor.create;
he.loadfromfile('HE.ini');
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
caption:=he.test;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
he.savetofile('HE.ini');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
he.addnew(65,90,66,'первая строка');
he.addnew(66,vk_shift,32,'вторая строка');
end;
end.