IMEから変換結果を取得する方法は？

procedure TEditAreaControl.WMImeComPosition(var Message: TMessage);
var
  hImc: THandle;  L: Integer;  WorkBuf: PChar;
begin
  if (Message.lParam and GCS_RESULTSTR) = GCS_RESULTSTR then
  begin
    hImc := ImmGetContext(Handle);
    if hImc <> 0 then
    begin
      L := ImmGetCompositionString(hImc, GCS_RESULTSTR, nil, 0);
      if L > 0 then
      begin
        GetMem(WorkBuf, L);
        ImmGetCompositionString(hImc, GCS_RESULTSTR, WorkBuf, L);
        InsertLines(WorkBuf, L);//これは挿入メソッド
        FreeMem(WorkBuf, L);
      end;
      ImmReleaseContext(Handle, hImc);
    end;
  end
  else
    inherited;end;
end;