1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure ResetControls;
var I:integer;
begin
  for I:=0 to frmMain.ControlCount-1 do begin
    if(frmMain.Controls[I].Tag=10) then begin
      // was auch immer du tun willst, hier:
      (frmMain.Controls[I] as TCombobox).ItemIndex:=-1;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm.ComboBoxKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #27 then // #27 ist ASCII-Code für Escape
  begin
    (Sender as TComboBox).ItemIndex := -1;
  end;
end;					

1:
2:
3:
4:
5:

procedure TForm.TComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 46 then (sender as TCombobox).ItemIndex := -1;
end;