[ALexandr555]

у обоих опечатки так сказать)

Код:

if AnsiLowerCase(copy(msg,1,pos(' ',msg)-1)) = '!сохранить' then 
Listbox.Items.Add(Copy(msg,pos(' ',msg)+1,length(msg)));

вот