procedure TForm2.ComboBox1Change(Sender: TObject);
begin
??????
end;

что вот тут писать чтоб был протос впадающйи спискок