Gravitas, надо было дождаться его кода))) но раз так то добавлю свой вариант, с обработкой регистра другого и изменении команды
Код:
if AnsiLowerCase(copy(msg,1,pos(' ',msg)-1)) = '!сохранить' then
Listbox.Items.Add(Copy(msg,pos(' ')+1,length(msg)));