¿Cómo incrementar un valor en Lazarus Pascal?

[ARICARRARO]

Buen día, tengo un problema no logro incrementar el valor de unas variables en Pascal.

Tengo este código para generar dos números aleatorios:

Código pascal:

procedure TForm1.Button1Click(Sender: TObject);
var
  azar1,azar2:integer;
begin
  randomize;
  azar1:=random(101)*2;
  azar2:=random(101)*3;
  Edit4.Text:=inttostr(azar1);
  Edit5.Text:=inttostr(azar2);
end;
 

Ahora tengo este código para comprobar si el valor introducido por el usuario es igual a la suma de esos dos números aleatorios:

Código pascal:

procedure TForm1.Button3Click(Sender: TObject);
var
  resultado:integer;
  suma:integer;
  elemento:Elementos;
begin
  elemento.aciertos:=0;
  elemento.fallos:=0;
  elemento.intentos:=0;
  resultado:=strtoint(InputBox ('Aviso','Resultado:',''));
  suma:=strtoint(Edit4.Text) + strtoint(Edit5.Text);
 
  if suma = resultado then
    begin
{aqui deberia incrementarse el valor}
    elemento.aciertos:=elemento.aciertos+1;
    elemento.intentos:=elemento.intentos+1;
 
    Edit1.Text:=inttostr(elemento.aciertos);
   Edit2.Text:=inttostr(elemento.fallos);
   Edit3.Text:=inttostr(elemento.intentos);
    end
  else
     begin
{aqui deberia incrementarse el valor}
     elemento.fallos:=elemento.fallos+1;
    elemento.intentos:=elemento.intentos+1;
 
     Edit1.Text:=inttostr(elemento.aciertos);
   Edit2.Text:=inttostr(elemento.fallos);
   Edit3.Text:=inttostr(elemento.intentos);
     end
 
end;
 

Donde elemento es una variable tipo record:

Código pascal:

type
 
    Elementos=record
    aciertos:integer;
    fallos:integer;
    intentos:integer;
    end;
 

Espero puedan ayudarme, gracias.