[anghela]

Код:

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;

выдает ошибку перед ='3':
[Error] Unit8.pas(100): Incompatible types: 'Integer' and 'TComboBox'
Помогите исправить