[SOAD_72]

у меня не получилось
в варианте

Код:

if copy(msg1,10) = '!сохранить' then begin
  Listbox.Items.Add(Copy(msg,13,length(msg-1)));
end;

выделяет (msg1,10)
в

Код:

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

ругается на (' ')+1