Клавиатурные хуки. Каждая буква с новой строки. Чем вылечить?

[Человек_Борща]

Всем добра!

Собственно проблема:
Из одного приложения в другое, прилетают буквы(да, да именно прилетают ).

Собственно вместо:
Привет

Получается:
п
р
и
в
е
т

hook dll:

function KBHookProc(Code: Integer; WParam: WParam; LParam: LParam)
  : LRESULT; stdcall;
var
  ScanCode: Integer;
begin
  if Code = HC_ACTION then
  begin
    if ((LParam or (1 shl 30)) = LParam) then
    begin
      ScanCode := (LParam shr 16) and $FF;
      if (mWND = 0) then
        SendMsg('Запрос описателя главного окна.');
      if mWND <> 0 then
        PostMessage(mWND, PKBM_MESSAGE, WParam, GetCurrentThreadId);
    end;
  end;
  Result := CallNextHookEx(hKBHook, Code, WParam, LParam);
end;

Обработчик в приложении:

var
  VK: Integer;
  SC: Integer;
  buf: Char;
  KS: TKeyboardState;
  MyHKL: HKL;
begin
  if (Msg.Msg = PKBM_MESSAGE) then
  begin
    VK := Msg.WPARAM;
    MyHKL := GetKeyboardLayout(Msg.LParam);
    SC := MapVirtualKeyEx(VK, MAPVK_VK_TO_VSC, MyHKL);
    GetKeyboardState(KS);
    ToUnicodeEx(VK, SC, KS, @buf, sizeof(buf), 0, MyHKL);
    if Assigned(ts) then
      ts.Text := ts.Text + buf;
    MyHKL := 0;
  end;
  inherited;
end;

Почему так?

[Smitt&Wesson]

Человек_Борща, ну ёжкин-же кот! Но формат-то нужно соблюдать...
Не ожидал. Радуешь...

[Человек_Борща]

Smitt&Wesson, намек не понят =( Пните в нужное русло..

added
Помогите кто-нибудь. О каком форматировании идет речь?

[Daemvil]

каков смысл функции MAPVK_VK_TO_VSC (или переменной?) ?

[Kix.IV]

Я что-то не пойму, у вас после каждой буквы идёт #10(перевод строки))?
Если да,то что мешает убрать это?
UPD: Код проверил, всё нормально передаётся.