Непонятное дублирование записи.

[celovec]

if (Pos('!андрей',edit5.text)=1) or (Pos('!дима',edit5.text)=1) or (Pos('!володя',edit5.text)=1) then begin

  text2:=Edit5.Text;
  if Pos(' ',text2)<>0 then delete(text2,1,pos(' ',text2)) else text2:='';
  button4.Caption:=text2;

  user_quest:=strtoint(IniFile.ReadString('user info', button4.Caption,'0'));
  user_row:=strtoint(IniFile.ReadString('user row', button4.Caption,'0'));

  memo1.lines.add(button4.Caption);

end else
if ((Pos('!привет',edit5.text)=1) or (Pos('!пока',edit5.text)=1)) then begin
  user_quest:=strtoint(IniFile.ReadString('user info', pMessage.FromHandle,'0'));
  if (user_quest > strtoint(edit22.Text)) then begin

   text2:=Edit5.Text;
  if (Pos(' ',text2)<>0) and (Pos(Edit8.Text,text2)<>0) then begin
   delete(text2,1,pos(' ',text2));
   button4.Caption:=text2;

   assignFile(add_quest, Edit14.Text);
   append(add_quest);
   write(add_quest, #13#10+text2);
   closeFile(add_quest);

    memo1.lines.add(button4.Caption);
  end;

Казалось бы простой скрипт. Но почему он иногда дублирует memo1.lines.
Тоесть вот напишу я "!пока всем удачи" и в memo1.lines появляется сразу 2 линии с button4.Caption. А иногда ода - как и должно быть.
Из за чего это может быть и как с этим бороться?

[Stilet]

Возможно код этот несколько раз вызывается. Пройдись пошаговкой и посмотри стек вызовов.