Найти сумму и кол-во элементов каждого столбца кратных К1 и К2

[Richik123]

Вот код
При выводе ответа в label, фраза повторяется.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    edit2: TEdit;
    edit3: TEdit;
    button2: TButton;
    button3: TButton;
    edit4: TEdit;
    edit5: TEdit;
    button4: TButton;
    label2: TLabel;
    label3: TLabel;
    label4: TLabel;
    label5: TLabel;
    Label1: TLabel;
    Label6: TLabel;
    procedure button2Click(Sender: TObject);
    procedure button3Click(Sender: TObject);
    procedure button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.button2Click(Sender: TObject);
begin
   strngrd1.ColCount:=StrToInt(edit2.Text) ;
 strngrd1.RowCount:=StrToInt(edit3.Text);
end;
 
procedure TForm1.button3Click(Sender: TObject);
var i,j:Integer;
begin
  Randomize;
 for i:=0 to StrToInt(edit2.Text)-1 do begin
   for j:=0 to StrToInt(edit3.Text)-1 do begin
     strngrd1.Cells[i,j]:=IntToStr(Random(10));
   end;
 end;
end;
 
procedure TForm1.button4Click(Sender: TObject);
  var i,j:Integer;
begin
 for i:=0 to StrToInt(edit2.Text)-1 do begin
   for j:=0 to StrToInt(edit3.Text)-1 do begin
    if  (StrToInt(strngrd1.Cells[i,j]) mod StrToInt(edit4.Text)=0 ) and
        (StrToInt(strngrd1.Cells[i,j]) mod StrToInt(edit5.Text)=0)
        then  label5.Caption:='Кратные числа коэффициентов к1 и к2 = '+label5.Caption+'  '+ strngrd1.Cells[i,j];
   end;
 end;
end;
 
end.