Автозаполнение как в IDE

[Liite]

Всем добрый день. Есть необходимость организовать автозаполнение в Memo, на манер как в Ide редакторе, то есть чтобы предлагался вариант на каждое введённое слово. Изначально все значение лежат в Combobox и загружаются из базы. Собсно вот код, но он работает только на полную замену строки, и заполняет только первое слово.

procedure TForm1.edt4Change(Sender: TObject);
var
key: Char;
begin
  if chk1.Checked = True then
  begin
  dbcbbCMD.Visible := True;
  dbcbbCMD.Text := edt4.Text;
  dbcbbCMD.DroppedDown := True ;
  end;
  smptbl4.Locate('CMD',edt4.Text,[loPartialKey,loCaseInsensitive]);
   dbcbbCMD.Items [dbcbbCMD.ItemIndex] := smptbl4.FieldValues ['CMD'];
   //if GetKeyState (VK_Control) < 0 then
//RunDosInMemo(edt4.Text, Mmo1);
end;

Пока что эксперементирую с эдитом, но думаю, что с Memo алгоритм будет такой же.
Заранее благодарен за любую помощь.

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

Есть же StringReplace нафига вам велосипеды?

[Liite]

а можно на примере показать ? а то чего то с утра в пятницу совсем не думается. Пардон за наглость ))

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

http://www.delphibasics.ru/StringReplace.php

Ввверху есть ссылка "Основы delphi" полно описаний всяких стандатных функций.