procedure TMain.Delete1Click(Sender: TObject);
Var
   i:integer;
begin
   If Nonelbl.Caption <> '' then
   begin
     ActRow:=StrToInt(Nonelbl.Caption);
     if (ActRow = ListSg.RowCount - 1)  and (ActRow <> 0)  then
     begin
        ListSg.RowCount:=ListSg.RowCount-1 ;
        FillChar(Part[ActRow -1], SizeOf(TPart), 0);
     end
     else
     if (ActRow <> 0) then
     begin
        for i := ActRow to ListSg.RowCount -1  do
          ListSg.Rows[i] := Listsg.Rows[i+1];
        ListSg.RowCount:=ListSg.RowCount-1;
        FillChar(Part[ActRow-1], SizeOf(TPart), 0);
     end;
     Nonelbl.Caption:='';
   end
   else
    ShowMessage('Choose the cell');
end;