[Bargest]

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

так...

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
  var t:integer;
       fl:boolean;
begin
Memo2.Lines.LoadFromFile('ComboBoxList.txt'); 
fl:=false;
for t:=0 to Memo2.Lines.Count-1 do 
if Memo2.Lines[t]=Combobox1.Text then
begin
  fl:=true;
  break;
end;
if fl then
Image1.Visible:=true;
Image2.Visible:=false;
end
else
begin
Image1.Visible:=false;
Image2.Visible:=true;
end;
end;

Это пробовал?