Всплывающая подсказка при вводе в Edit

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
TStringList * words;                           // список возможных подсказок
 
// функция возвращает many символов строки s, начиная с beg
AnsiString SubStr(AnsiString s, int beg, int many)
{
 AnsiString ret;                                 // возвращаемое значение
 char ss[80]; strcpy(ss,s.c_str());    
 for(int i=beg;i<beg+many;i++)
   ret += ss[i];
 return ret;
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 words = new TStringList;
 words->Sorted = true;
 words->Add("one");         // добавление в список
 words->Add("two");
 words->Add("four");
 words->Add("five");
 words->Add("six");
 words->Add("seven");
 words->Add("eight");
 words->Add("nine");
 words->Add("ten");        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 AnsiString w,full;
 int SelSt,i;
 char s[80];
 switch(Key)
 {
   case VK_RETURN:
   case VK_TAB:
       Edit1->SelStart = Edit1->SelStart + Edit1->SelLength;
       Edit1->SelLength = 0; return;           // записывание подсказки
   case VK_DELETE:
   case VK_BACK:
       Edit1->ClearSelection(); return;        // снятие выделения
 }
 strcpy(s,Edit1->Text.c_str());
 i = SelSt = Edit1->SelStart;
 if ((strlen(s) > i) && (s[SelSt-i] != 0)) return;
 w = "";
 while ((i >= 1) && (s[i-1] != 0))
 { w += s[SelSt-i]; i-=1; }
 if (w.Length() <= 0) return;
 words->Find(w, i);                       // найдет строку с началом w и
                                                   // ее индекс запишется в i
 if ((i >= 0) && (UpperCase(SubStr(words->Strings[i], 0, w.Length())) == UpperCase(w)))
 {
   full = words->Strings[i];
   AnsiString e = w;
   e.Insert(SubStr(full, w.Length(), full.Length()-1), SelSt+1);  // добавление подсказки
   Edit1->Text = e;
   Edit1->SelStart = SelSt;
   Edit1->SelLength = full.Length() - w.Length();
 }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 words = new TStringList;
 words->Sorted = true;
 words->Add("ноль");         // добавление в список
 words->Add("один");
 words->Add("фенрир");
 words->Add("тор");
}

#include <StrUtils.hpp>
 
// ...
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    words = new TStringList;
    words->Sorted = true;
    words->Add(L"одиннадцать");         // добавление в список
    words->Add(L"двенадцать");
    words->Add(L"тринадцать");
    words->Add(L"двадцать");
    words->Add(L"six");
    words->Add(L"seven");
    words->Add(L"eight");
    words->Add(L"nine");
    words->Add(L"ten");
}
 
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
    String w, full;
    int SelSt, i;
    wchar_t s[80];
 
    TEdit *edit = dynamic_cast<TEdit*>(Sender);
 
    switch(Key)
    {
        case VK_RETURN:
        case VK_TAB:
            edit->SelStart = edit->SelStart + edit->SelLength;
            edit->SelLength = 0;
            return; // записывание подсказки
        case VK_DELETE:
        case VK_BACK:
            edit->ClearSelection();
            return; // снятие выделения
    }
 
    wcscpy(s,edit->Text.c_str());
    i = SelSt = edit->SelStart;
    if ((wcslen(s) > i) && (s[SelSt-i] != 0)) return;
    w = "";
    while ((i >= 1) && (s[i-1] != 0))
    { w += s[SelSt-i]; i-=1; }
 
    if (w.Length() <= 0) return;
    words->Find(w, i); // найдет строку с началом w и ее индекс запишется в i
 
    if(i > -1 && !AnsiCompareText(LeftStr(WideString(words->Strings[i]), w.Length()), w))
    {
        full = words->Strings[i];
        String e = w;
        e.Insert(full.SubString(w.Length() + 1, full.Length() - 1), SelSt + 1);  // добавление подсказки
        edit->Text = e;
        edit->SelStart = SelSt;
        edit->SelLength = full.Length() - w.Length();
    }
}