procedure TFrame5.Timer2Timer(Sender: TObject);
var
i:Integer;
friend:TChar;
begin
If CheckBox3.Checked=false then
Timer2.Enabled:=false;
 
for i:=0 to ListBox1.count-1 do
  begin
  friend.Name:=listbox1.Items.Strings[i];
  if findplayerbyname(friend).Found=true then
    begin
      If ComboBox2.ItemIndex=7 then
        begin
          If friend.HPBar<=(friend.HPBar*strtoint(Edit4.Text)/100) then
            begin
              If Player.MP>=strtoint(Edit2.Text) then
              Packet_Say('Exura sio "'+friend.Name,1);
            end;
        end;
    end;
  end;
end;