[SOLUCIONADO] ¿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.

[ARICARRARO]

Ya lo resolví dejo el código:

Código pascal:

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  Elementos=record
    aciertos:integer;
    fallos:integer;
    intentos:integer;
    end;
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  elemento:Elementos;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
elemento.aciertos:=0;
elemento.fallos:=0;
elemento.intentos:=0;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  alea1,alea2:integer;
begin
    randomize;
    alea1:=random(102)-25;
    alea2:=random(102)-22;
    Edit1.Text:=inttostr(alea1);
    Edit2.Text:=inttostr(alea2);
 
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  numero,suma:integer;
 
begin
    numero:=strtoint(InputBox('Introduce resultado','Aqui:',''));
    {ShowMessage('Introduciste: '+ inttostr(numero));  }
    suma:=strtoint(Edit1.Text)+strtoint(Edit2.Text);
 
  if suma = numero then
    begin
{aqui deberia incrementarse el valor}
    elemento.aciertos:=elemento.aciertos+1;
    elemento.intentos:=elemento.intentos+1;
 
    Edit4.Text:=inttostr(elemento.aciertos);
   Edit5.Text:=inttostr(elemento.fallos);
   Edit6.Text:=inttostr(elemento.intentos);
    end
  else
     begin
{aqui deberia incrementarse el valor}
     elemento.fallos:=elemento.fallos+1;
    elemento.intentos:=elemento.intentos+1;
 
     Edit4.Text:=inttostr(elemento.aciertos);
   Edit5.Text:=inttostr(elemento.fallos);
   Edit6.Text:=inttostr(elemento.intentos);
     end
 
 
 
 
end;
 
end.