well look at these 2 procedures

SCAR Code:
Procedure Trade;
Var
Clicks, x, y : Integer;
Begin
  If Not LoggedIn Then Exit;
  FindFastRandoms;
    Begin
    If FindColorTolerance(x, y, TradeColor, MCX1, MCY1, MCX2, MCY2, 5) Then
      Begin
      Repeat
      Mouse(x, y, 1, 1, False)
      ChooseOption('ccept')
      Clicks := Clicks + 1;
      Until (TradeScreen) Or (Clicks = 5);
      Trades:= Trades + 1;
    End;
  End;
End;
     
   
procedure WriteIt;
var
HowManyTypez: Integer;
begin
  If Not LoggedIn Then Exit;
  FindFastRandoms;
  AntiBan;
  repeat
    TypeSend(Colors.Text + ':' + message.text);
    Wait(3500);
    Trade;
    TypeSend(Colors.Text + ':' + message2.text);
    Wait(3500);
    Trade;
    TypeSend(Colors.Text + ':' + message3.text);
    Trade;
    Proggie;
    Talked := Talked + 3;
    ReportVars[0] := 3;
    SrlRandomsReport;
    HowManyTypez := HowManyTypez + 1
  until (HowManyTypez = HowManyTypes);
end;

it compiles it types one message then right clicks the trade color and accepts but thnen it keeps trying to accept it how do i fix