как удалить строку из combobox, если такая уже есть и добавить в начало новую?

[codermoder]

как удалить строку из combobox, если такая уже есть и добавить в начало новую?
т.е. есть combobox, в нем несколько строк.
потом я пишу текст в combobox жму enter и строка добавляется (как добавлять в начало я уже понял), но как проверить, если есть точно такаяже строка в списке с таким же текстом, то ее нужно удалить, чтобы не было повторов?

[_SERGEYX_]

begin
if ComboBox1.Items.IndexOf('Твой текст') < 0 then
ShowMessage('Нет такого пункта') else
ShowMessage('Есть такой пункт');
end;

[maloun]

var
i:integer;
begin
for i:=1 to ComboBox1.Items.Count do
if ComboBox1.Text=ComboBox1.Items[i] then
ComboBox1.Items[i]// делай с ним что хочешь;
end;

[codermoder]

Сообщение от _SERGEYX_

begin
if ComboBox1.Items.IndexOf('Твой текст') < 0 then
ShowMessage('Нет такого пункта') else
ShowMessage('Есть такой пункт');
end;

как теперь удалить найденую строку?
т.е.
if ComboBox1.Items.IndexOf('Твой текст') < 0 then
ShowMessage('Нет такого пункта') else
\\код удаления найденой строки

[vovk]

ComboBox1.Items.Delete(ComboBox1.Items.IndexOf('Твой текст') );

добавить в начало

ComboBox1.Items.Insert(0,'Твой текст')

[_SERGEYX_]

Ну, совсем народ стал ленивый...

if ComboBox1.Items.IndexOf('Твой текст') > -1 then
ComboBox1.Items.Delete(ComboBox1.Items.IndexOf('Твой текст'));
end;

[codermoder]

спасибо !