Unit1.pas(9429)

ComboBox6

Глянув код детальніше. Ви що, всі можливі комбінації двох (чи навіть більше) комбобоксів розбираєте?
Дуже раджу для початку створити щось на кшталт

procedure ReportError(what:String, units: String);
begin
    Beep;                                                             
    ShowMessage(what+' не може вимірюватись в '+units+'!');
    ComboBox6.ItemIndex := -1;                                         
    RichEdit1.Clear;        
end;

А потім можна робити

if ComboBox6.ItemIndex = 7 then
    ReportError('Швидкість','кілометрах');

код уже скоротиться втричі, і beep ніде не пропустите. А якщо ці ж значення прописані в комбобоксах, то всю обробку помилки можна зібрати в

if ... then
    ...//прийнятні дані
else 
    ReportError(cmbParameter.Items[cmbParameter.Index],  cmbUnits.Items[cmbUnits.Index]);
//cmbParameter - це ComboBox2, cmbUnits - ComboBox6 - погодьтеся, так значно легше зрозуміти, про що мова

Програмування краще вдається лінивим
Підійдіть з іншого боку - вам не ХОВАТИ треба, а ПОКАЗУВАТИ.

const UNITS: Array[1..5] of String = ('кілометри на годину','метри на секунду','милі на годину','міліметри на секунду','метри на хвилину');
const SPEEDS_LOCAL: Array[1..5] of String = ('кілометрах на годину','метрах на секунду','милях на годину','міліметрах на секунду','метрах на хвилину');

procedure cmbParameter.OnChange(Self:TControl); //чи як там воно проголошується - все одно автоматом робиться
var i:integer;
begin
    cmpUnits.Items.Clear;
    //"сховали" (тобто видалили) все
    ...
    if cmbParameter.Index = 6:
        for i in Low(SPEEDS) to High(SPEEDS) do
            cmpUnits.Items.Add(SPEEDS[i]);
    ...
    //все, показали лише потрібні значення
end;
...
ReportError(cmbParameter.Items[cmbParameter.Index],  {тут трохи складніше}SPEEDS_LOCAL[cmbUnits.Index]);

У принципі, за деякої фантазії можна навіть позбирати всі ці стрічки у двовимірні масиви (я так розумію, вони у вас будуть зубчасті, тому це буде Array of TStringList). Це трохи некрасиво в Паскалі, але точно краще, ніж у вас зараз.