Сбор данных из TableGrid1 в Label

procedure Form1_GridAbonent_OnChange (Sender: string);
var
   i,c,q: integer;
   iValue: double;
begin

     q := 0;
     c := Form1.GridAbonent.RowCount - 1;
     for i := 0 to c do
         if ValidFloat(Form1.GridAbonent.Cells[3, i]) then
         begin
             iValue := StrToFloat(Form1.GridAbonent.Cells[3, i]);
             if iValue < 0 then Inc(q);
         end;
     Form1.Label5.Caption := FloatToStr(q);

end;

//считаем количество строк в колонке [4,i] со значением 'buy'...
 procedure Form1_TableGrid1_OnChange (Sender: string);
var
   i,c: integer;
   s: string;
begin
     c := Form1.TableGrid1.RowCount - 1;
     for i := 0 to c do
     begin
         if Form1.TableGrid1.Cells[4,i] = 'buy'  then Form1.Label35.Caption := IntToStr(i) + ' ';

     end;
end;

//при открытии  Form10 (для новой записи) подставляет значения в ComboBox1
 procedure Form10_OnShow (Sender: string; Action: string);
begin
if Action = 'NewRecord' then
begin
Form10.ComboBox1.dbItemID :=Form3.TableGrid1.dbItemID;

Form3.Close;  // ВОПРОС: 1) С  Form3 двойным кликом по гриду  была вызвана Form10 (новая запись)
.............................Запись пойдёт в Form1...Form3 нужна была, чтоб взять значение в ComboBox1
.............................Существует способ при открытии Form10 (новая запись) закрыть предыдущую Form3...?
end;
end;