[Ruz]

У себя проверил - все работает. А вы куда именно этот код вписали?

Если я правильно понял то вот ваш код:

Код:

procedure TForm8_kalculator.CB_vid_kredChange(Sender: TObject);
begin
  if (CB_vid_kred.Items.ValueFromIndex[CB_vid_kred.ItemIndex]='автокредит') and (CB_srok_kr.Items.ValueFromIndex[CB_srok_kr]='3')then
  Edit1.Text:='13,5';
end;

Замените Change в этом обработчике событий в 2 местах на Click(CB_vid_kredClick), затем в OnFormCreate добавьте:

Код:

CB_srok_kr.OnClick:=CB_vid_kredClick;