Идентифицировать по первым нескольким буквам

[Inbox]

Список материала:
Стекло матовое
Стекло прозрачное
Стекло потное
Кирпич силикатный
Кирпич силиконовый
Кирпич сломаный

 
If 
Combobox.Text='Стекло *****' 
 Then 
Edit1.Text:='Осторожно стекло';
 
If 
Combobox.Text='Кирпич*****' 
 Then 
Edit1.Text:='Он и в Африке кирпич';

Как аправильно Идентифицировать по первым нескольким буквам???

[Jeni]

Если известно заранее сколько букв нужно для идентификации, то можно так:

var
  S: string;
begin
  S := Copy(ComboBox1.Text, 1, 6); // берем первые 6 букв
  if S = 'Стекло' then Edit1.Text := 'Осторожно стекло';
  if S = 'Кирпич' then Edit1.Text := 'Он и в Африке кирпич';

Можно сделать количество начальных букв поменьше, а еще можно использовать функции Trim и AnsiUpperCase (или UpperCase) чтобы убрать лишние пробелы и сравнивать слова без учета регистра.

[Inbox]

Спасибо!
Пробуем и удивляемся..........

[Tiolic]

можно и так
var
S: string;
begin
if pos('Стекло',ComboBox1.Text) >0 then Edit1.Text := 'Осторожно стекло';