ho fatto una prova e a me funziona
la prova che ho fatto è semplice, ho usato le funzioni in sequenza e va tutto bene
probabilmente il problema è tra il focus/timer dei controlli sulla form
procedure TForm1.Txt_KeyPressKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var s: string;
ret : word;
begin
s := Char2VKString(Chr(Key));
ret := VKString2Char(s);
ShowMessage(s);
{
Self.Txt_VK_Str.Text := Char2VKString(Chr(Key));
Self.Txt_VK.Clear;
Application.ProcessMessages;
Sleep(100);
Self.Timer1.Interval := 100;
}
end;