procedure TForm2.N9Click(Sender: TObject);
var
    i:integer;
begin
for i:=1  to 100 do
  form2.StringGrid1.Rows[i].Clear;
if opendialog1.Execute then
begin
otdel.load(opendialog1.filename);
    for i:= 1 to (otdel.kol_vo - 1 ) do
      begin
        stringgrid1.cells[0,i]:=inttostr(i);
        stringgrid1.cells[2,i]:= otdel.otdelkadrov[i].name;
        stringgrid1.cells[1,i]:= otdel.otdelkadrov[i].familia ;
        stringgrid1.cells[3,i]:= otdel.otdelkadrov[i].surname;
        stringgrid1.cells[4,i]:= otdel.otdelkadrov[i].dolzhnost;
        memo1.Lines[i]:=otdel.otdelkadrov[i].info;
        stringgrid1.cells[5,i]:= inttostr(otdel.otdelkadrov[i].pasport);
        stringgrid1.cells[6,i]:= inttostr(otdel.otdelkadrov[i].zarplata);
        StringGrid1.RowCount := stringgrid1.RowCount + 1;
      end;


   end;

end;