[salamander2109]

Все, нашел как убрать пиканье, нужно добавить процедуру

Код:

procedure TForm1.OnKeyPressCombobox1(Sender: TObject; var Key: Char);
begin

	  if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then

		Key := #0;
end;

Спасибо за помощь.