[friz]

может так?

Код:

if msg='help' then begin 
Icqclient1.SendMessage(UIN,'выберите нужный пункт:' );
Icqclient1.SendMessage(UIN,'1  - пункт1');
Icqclient1.SendMessage(UIN,'2  - пункт2');
Icqclient1.SendMessage(UIN,'3  - пункт3');
end;
try
case inttostr(msg) of
1:procedure1;
2:procedure2;
3:procedure3;
end;
except
end;