함수에서 1바이트인 ch(char형)을 받아 실행하는데
  char형을 widechar형으로 바꾸지 않고 함수 내부에서
  2바이트씩 조합을 해서 실행 시키는 방법이 없을까요?
함수는 계속 반복되는 함수 이고요. 1바이트인 영문이
읽혀졌을때 처리하는 소스거든요.
  제가 구현하고자 하는것은 한글 'ㄱ','ㄴ'.... 등을 불러올때
char형이므로 2번씩 반복되어 입력받아야 되거든요.
  그래서 다시 2바이트의 char형태로 조합하는 방법...

  그리고 다른 질문은 widechar 인 변수가 있으면 이를 초기화 시키는 방법이
  어떤건지 궁금합니다.
    string := ''; string은 이렇게 할수 있는데
   widechar 형은 어떻게 하는지 좀 알려주세요.


const
  code: array[32..90] of string = ('$$',.......'');

function TMain.d...with_char (bfr: pBuffer; ch: char): integer;
var
c, i: integer;
  mc: string;
begin
  if (c >= 32) and (c <= 90) then
  begin
    mc := code[c];
    i := 1;
    while i <= Length(mc) do
    begin
      case mc[i] of
      '$':  begin
              .......
            end;
      '#':  begin
              .......
            end;
      else
       .......
      end;
      Inc(i);
    end;
  end;
end;