Что не так со скриптом

procedure Клиент_продажа_TableGrid1_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
begin
    Клиент_продажа.Close;
end;

procedure Продажа_клиент_товар_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    Продажа_клиент_товар.edGroupd.Clear;
    Продажа_клиент_товар.cbGroups.dbItemID := -1;
end;

procedure Продажа_клиент_товар_OnShow (Sender: string; Action: string);
begin
    Продажа_клиент_товар.edGroupd.Text := Продажа_клиент_товар.cbGroups.Text;
end;

procedure Продажа_клиент_товар_Button1_OnAfterClick (Sender: string);
begin
    if Клиент_продажа.TableGrid1.dbItemID <> -1 then
    begin
        Продажа_клиент_товар.cbGroups.dbItemID := Клиент_продажа.TableGrid1.dbItemID;
        Продажа_клиент_товар.edGroupd.Text := Продажа_клиент_товар.cbGroups.Text;

end;

procedure Товар_продажа_TableGrid1_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);- НА ЭТОЙ СТРОЧКЕ ВЫД. ОШИБКУ
begin
    Товар_продажа.Close;
end;

procedure Продажа_клиент_товар_Button4_OnClick (Sender: string; var Cancel: boolean);
begin
    Продажа_клиент_товар.edGroupd1.Clear;
    Продажа_клиент_товар.cbGroups1.dbItemID := -1;
end;

procedure Продажа_клиент_товар_OnShow (Sender: string; Action: string);
begin
    Продажа_клиент_товар.edGroupd1.Text := Продажа_клиент_товар.cbGroups1.Text;
end;

procedure Продажа_клиент_товар_Button3_OnAfterClick (Sender: string);
begin
    if Товар_продажа.TableGrid1.dbItemID <> -1 then
    begin
        Продажа_клиент_товар.cbGroups1.dbItemID := Товар_продажа.TableGrid1.dbItemID;
        Продажа_клиент_товар.edGroupd1.Text := Продажа_клиент_товар.cbGroups1.Text;
    end;
end;
begin

end.