function StrToMess(AMessage : string) : TCltMessage;
begin
  if AMessage[1] = CommandPrefix then
    Delete(AMessage,1,1);
  Result := TCltMessage.Create;
  Result.Command := Words(AMessage,1,1);
  Result.Operands := Words(AMessage,2,0);
end;