Procedure ParseMessage(UIN : Integer; mess : string);
var cmd  : string;
    param: string;
    i    : Integer;
begin
  if Length(Mess) > 0 then
    begin
      i    := Pos(' ', mess);
      if i > 0 then
        begin
          cmd   := Copy(mess, 1, i - 1);
          // далее в любом случае можно не высчитывать точно,
          // третий параметр в Copy(...)
          param := Copy(mess, i + 1, Length(mess));
        end
      else
        begin
          cmd   := mess;
          param := '';
        end;

    // и понеслась проверять...
    if cmd = '!md5' then
      begin
        ////
        SendMessageToUIN(UIN, MD5DigestToStr(MD5String(param)));
      end
    else if cmd = '!anegdot' then
      begin
        ////
        // и т.д.
        SendMessageToUIN(UIN, 'Бугого');
      end;
    end;
end;