Как сделать чтобы combobox выполнял забор данных автоматически без кнопки?

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    ComboBox1: TComboBox;
    Button2: TButton;
    Button1: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 var
iter, index :integer;
begin
Combobox1.Items:=stringgrid1.Cols[3];
begin
begin
for iter := combobox1.Items.Count - 1 downto 0 do
begin
  index := combobox1.Items.IndexOf(combobox1.Items[iter]);
  if index < iter then
    combobox1.Items.Delete(iter);
end;
end;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i, j,m,n : Integer;
  Sg : TStringGrid;
begin
  Sg := StringGrid1;
  Randomize;
  m:= Sg.RowCount;
  n:= Sg.ColCount;
  for i := Sg.FixedRows  to m - 1 do
    for j := Sg.FixedCols  to n - 1 do
      StringGrid1.Cells[j, i] := IntToStr( Random(10) );
end;
 
end.

procedure TForm1.ComboBox1Enter(Sender: TObject);
var L: TStringList;
begin
  ComboBox1.Items.Clear;
  L := TStringList.Create;
  L.Sorted := true;
  L.Duplicates := dupIgnore;
  L.Assign(StringGrid1.Cols[NN]);
  ComboBox1.Items.Assign(L);
  L.Free;
end;

// Настраиваем TStringList на создание отсортированного списка без повторов
SL := TStringList.Create;
SL.Duplicates := dupIgnore;
SL.Sorted := True;
// Изменяем ваш цикл
for j := Sg.FixedCols  to n - 1 do
begin
      StringGrid1.Cells[j, i] := IntToStr( Random(10) );
      if i=3 then SL.Add(StringGrid1.Cells[j, i]);
end;
//И в финале присваиваем уникальный список комбику
ComboBox1.Items.Assign(SL)

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j,m,n : Integer;
  Sg : TStringGrid;
  SL: TStringList;
begin
  Sg := StringGrid1;
  Randomize;
  m:= Sg.RowCount;
  n:= Sg.ColCount;
  SL := TStringList.Create;
  SL.Duplicates := dupIgnore;
  SL.Sorted := True;
  for i := Sg.FixedRows  to m - 1 do
  for j := Sg.FixedCols  to n - 1 do
  begin
  StringGrid1.Cells[j, i] := IntToStr( Random(10) );
  if j=3 then SL.Add(StringGrid1.Cells[j, i]);
  end;
  ComboBox1.Items.Assign(SL);
end;