[Кодер]

Можно и через case)))

Код:

if (условие 1) then k:=0;
if (условие 2) then k:=1;
if (условие 3) then k:=2;

case k of
0:действие 1;
1:действие 2;
2:действие 3;
end;