[ALexandr555]

Код:

  if
   (AnsiLowerCase(copy(msg,1,pos(' ',msg)-1)) = edit4.Text) or
   (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,'Ошибка в команде наберите справка');  

не?