Ab in die Ecke und schämen!
Es gibt keine IF-Schleifen.
Ich würde es zweistufig prüfen:
Delphi-Quellcode:
If StartsText('status', input) then
begin
delete(input, 1, 6);
if input = 'bla' then
//tu was
else
if input = 'blubb' then
//tu was anderes
end
//edit: arrrgh ... zu langsam