procedure TForm4_1.SaveDataClick(Sender: TObject);
const
   NotEmpty = 'В файле уже присутсвуют данные' + #13#10 + 'Желаете его перезаписать?';
var
   Output : File of TTimeTable;
   i : Byte;
begin
   if SaveFile.Execute then
   begin
      try
         if ( not FileExists(SaveFile.FileName) or (MessageDlg(NotEmpty, mtConfirmation, [mbYes, mbNo], 0) = mrYes)) then
         begin
            AssignFile(Output, SaveFile.FileName);
            Rewrite(Output);
            for i := 0 to sgTimeTable.RowCount - 1 do
               Write(Output, MyRecords[i]);
            CloseFile(Output);
         end
         else
            SaveDataClick(Sender);
      except
         MessageDlg('Нельзя переписать данный файл', mtError, [mbRetry], 0);
      end;
   end;
end;