or здесь не подходит, похоже придётся примерно так делать
Код:
...
prosedure ptg(ds: integer);
begin
Label1.Caption:='Сработало условие ' + IntToStr(ds);
Здесь выполнение then ..
end;
begin
if (условие 1) then ptg(1);
if (условие 2) then ptg(2);
if (условие 3) then ptg(3);
if (условие 4) then ptg(4);
end; А если условия однотипные, напр if i=1{2,3,3 etc.} то можно и кейсом пройтись