Translate Key Code (message.lparam)

With a keyHook I receive messages.
With:
    GetKeyNameText(Message.LParam, @Character, 100);
I receive the Name of the key from the message. e.g. J, L, SHIFT, ENTER, F1

So far so good, but the problem is, I can display only the "first set" of chars, not considering the status of the shift key. (e.g. I press :, but GetKeyNameText returns first "SHIFT" and then ";"

At another place I receive and store the status of the shift key. With SHIFT and message.lparam I should be able to get the real key, the user pressed!?

So I tried this
 .. which should normaly produce the same text like the memo which the user have entered originally.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
AddKey(Message.WParam,STRING(CHARACTER));
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Procedure TSpyKeyForm.AddKey(key:word;STR:STRING);
VAR ch:STRING;
CONST
    AddAscii: integer = 32;
begin
        IF shift THEN AddAscii := 0 ELSE AddAscii := 32;
        case KEY of
        16: SHIFT:= true; //set shift private var,
        13: S:= S + #10#13;
        32: begin ch:= ' '; S:= S + CH ; end;
        186 .. 230: s:=s+STR;
        65 .. 90: s:=s+char(KEY + addAscii);
        else
        s:=s+' ['+STR+'] ';//char(KEY + addAscii);
        END;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
This procedure is far away from being finished, but I think there must be a API funktion to perform this kind of translation?!

Question:
Maybe a kind of GetKeyNameText which also take the shift key in order to give me the real character the user pressed, or a function like the one above using the message or ascii code and the SHIFT status.

.................................................
Here the unit:

UNIT KeyHook_DLL_U2;

INTERFACE

USES
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    StdCtrls;

CONST
    My_Hook_DLL = 'KHD.dll';
    MY_HOOK_MSSG = WM_USER + $1000;

TYPE
    THookTeclado = PROCEDURE; stdcall;

TYPE
    TSpyKeyForm = CLASS(TForm)
        Memo1: TMemo;
        Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
        PROCEDURE FormCreate(Sender: TObject);
        PROCEDURE FormDestroy(Sender: TObject);
        PROCEDURE FormClick(Sender: TObject);
    Private
        { Private declarations }
        shift: boolean;
        File_in_Mem: THandle;
        PReceiver: ^Integer;
        HandleDLL: THandle;
        HookOn,
            HookOff: THookTeclado;
        s: STRING;
        PROCEDURE Sys_Hook(VAR message: TMessage); Message MY_HOOK_MSSG;
    procedure AddKey(key: word;STR:STRING);
    Public
        { Public declarations }
    END;

VAR
    SpyKeyForm: TSpyKeyForm;

IMPLEMENTATION

{$R *.DFM}

PROCEDURE TSpyKeyForm.FormCreate(Sender: TObject);
BEGIN

    {We dont want that the memo read the keyboard...}
    Memo1.ReadOnly := TRUE;
    //Find DLL
    HandleDLL := LoadLibrary(PChar(ExtractFilePath(Application.Exename) + My_Hook_DLL));
    IF HandleDLL = 0 THEN
        RAISE Exception.Create('DLL not found');
    //get address of dll functions
    @HookOn := GetProcAddress(HandleDLL, 'HookOn');
    @HookOff := GetProcAddress(HandleDLL, 'HookOff');

    IF NOT assigned(HookOn) OR
        NOT assigned(HookOff) THEN
        RAISE Exception.Create('Cannot find the required DLL functions');

    File_in_Mem := CreateFileMapping($FFFFFFFF,
        NIL,
        PAGE_READWRITE,
        0,
        SizeOf(Integer),
        'MyMappedFile'); //in dll

    IF File_in_Mem = 0 THEN
        RAISE Exception.Create('Error while create file');

    PReceiver := MapViewOfFile(File_in_Mem, FILE_MAP_WRITE, 0, 0, 0);

    PReceiver^ := Handle;
    HookOn;
END;

PROCEDURE TSpyKeyForm.Sys_Hook(VAR message: TMessage);
VAR
    Character: ARRAY[0..100] OF char;
    Key_Action: STRING; ch:string;
    ScanCode:word;
BEGIN
    {Virtual key code to Key Name}
    GetKeyNameText(Message.LParam, @Character, 100);
    ch:=string(character);
    //message from dll
   
    ScanCode:= MapVirtualKey(Message.wParam,0);
    label2.caption:=inttostr(scancode);
    label3.caption:=char(scancode);
    {Look if the key was pressed, released o re-pressed}
    IF ((Message.lParam SHR 31) AND 1) = 1 THEN
        BEGIN
            Key_Action := 'Released'; {Released}
            IF message.wparam = 16 THEN shift := false;
        END
    ELSE
        IF ((Message.lParam SHR 30) AND 1) = 1 THEN Key_Action := 'Repressed' {repressed}
    ELSE
        BEGIN Key_Action := 'pressed'; {pressed}
          AddKey(Message.WParam,STRING(CHARACTER));

       // s := s + ch;//STRING(Character);
        //        end;
        END;
    //if message.wparam = 16 then shift:= true else shift := false;

    //IF shift THEN showmessage('shift');
END;

Procedure TSpyKeyForm.AddKey(key:word;STR:STRING);
VAR ch:STRING;
CONST
    AddAscii: integer = 32;
begin
        IF shift THEN AddAscii := 0 ELSE AddAscii := 32;
        case KEY of
        16: shift := true;
        13: S:= S + #10#13;
        32: begin ch:= ' '; S:= S + CH ; end;
        186 .. 230: s:=s+STR;
        65 .. 90: s:=s+char(KEY + addAscii);
        else
        s:=s+' ['+STR+'] ';//char(KEY + addAscii);
        END;


    label1.caption :=
        inttostr(KEY) + '  '
        + STR + '  '
        + char(KEY + addAscii);


end;

PROCEDURE TSpyKeyForm.FormDestroy(Sender: TObject);
BEGIN
    {Uninstall the Hook}
    IF Assigned(HookOff) THEN
        HookOff;

    {Free the DLL}
    IF HandleDLL <> 0 THEN
        FreeLibrary(HandleDLL);

    {Close the memfile and the View}
    IF File_in_Mem <> 0 THEN
        BEGIN
            UnmapViewOfFile(PReceiver);
            CloseHandle(File_in_Mem);
        END;

END;

PROCEDURE TSpyKeyForm.FormClick(Sender: TObject);
var sl:TStringlist;
BEGIN
sl:=tstringlist.create;
    //memo1.text:=s;
    //memo1.text:=s;// := s;
    //showmessage(s);
    sl.text:=s;
    sl.SaveToFile(extractfilepath(application.exename)+'test1.txt');
    memo1.Lines.LoadFromFile('test1.txt');
    //memo1.Lines.SaveToFile('test2.txt');
END;

END.