[sorockinalex]

ну и второй эвент никак не влияет на внешний вид:

Код:

procedure TFAddBranchCompany.CompaniesStringGridDblClick(Sender: TObject);
var
  companypin_:string;
begin
  companypin_:=CompaniesStringGrid.Cells[0,CompaniesStringGrid.Row];
  CompaniesRefresh(companypin_);
end;