[SOAD_72]

вот еще вопрос.
как вот в этот код

Код:

AnsiLowerCase(copy(msg,1,pos(' ',msg)-1)) = edit4.Text

можно добавить вот в эту проверку

Код:

   if
   (Msg=edit1.Text)  or 
   (Msg=edit2.Text)  or  // edit1,2,3 команды бота
   (Msg=edit3.Text) then
   begin
memo20.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'command/1.txt')
end
else
ICQClient1.SendMessage(icq,'Ошибка в команде наберите справка');