function GetWordCode(aWord:string;iType:CodeType ):string;
var
    ipos: integer; //selStart 位置
    col: integer;  //取得文字所在行數
    row: integer;  //取得文字所在列數
    itmp:integer;  //記錄是否已搜尋完畢
begin        //初始化
    ipos:=-1;
    itmp:=0;
    RichEdit1[iType].SelStart :=0;        while ipos <> itmp do //若二值不相等，則代表尚未搜尋完畢
    begin
        itmp:=ipos;
        //開始搜尋
        ipos := RichEdit1[iType].FindText(aWord, RichEdit1[iType].SelStart +
            RichEdit1[iType].SelLength, length(RichEdit1[iType].Text), [stMatchCase]);            if ipos <> -1 then //若已搜尋到，則ipos <> -1
        begin
            RichEdit1[iType].SelStart := ipos;
            RichEdit1[iType].SelLength := length(aWord);
            //取得搜尋到的文字所在行數
            col := RichEdit1[iType].SelStart - RichEdit1[iType].Perform(EM_LINEINDEX, -1, 0) + 1;
            //取得搜尋到的文字所在列數
            row := RichEdit1[iType].Perform(EM_LINEFROMCHAR, -1, 0) + 1;              //  ListBox1.Items.Add('第 ' +inttostr(row) + ' 列 : 第 ' + inttostr(col) +
          //      ' 行，注音為： ' +RichEdit1.Lines.Names[row - 1]);
            result:=result + RichEdit1[iType].Lines.Names[row - 1] + chr(13);
        end;
    end;
end;