Из-за логики самого оператора поставленную задачу (если я правильно понял вас), не удастся решить.
Тут либо исключить 0 из case of и вставить в конце else и после этого else уже прописать все коды. Либо же создать юнит(если не хотите захламлять этот), в нём процедуру со всеми кодами и просто из первого юнита вызывать эту процедуру после else
при первом варианте будет так
Код:
1
var flag:word;
begin
flag:=combobox1.itemindex;
...
case flag of
1:begin
//код1
end;
2:begin
//код2
end;
else
//код1
//код2
//код3
//код4 и т.д
end;
Во втором
Код:
1
var flag:word;
begin
flag:=combobox1.itemindex;
...
case flag of
1:begin
//код1
end;
2:begin
//код2
end;
else
begin
имя процедуры(параметры);
end;
end;