Data forsvinder fra database (PD7)

Er der en der kan sige mig hvad der er galt med min kode.!
Når jeg gemmer en eller flere post(er) i min database (Pardox 7) virker det perfekt
Men når jeg genstarter min Pc så er mine data forsvundet fra databasen.
Min kode til at gemme med ser sådan her ud:

DataModule1.TbSpiller.Append;
  DataModule1.TbSpiller.FieldByName(\'SpillerNavn\').AsString := Edit1.Text;
  DataModule1.TbSpiller.FieldByName(\'KlubNavn\').AsString := ComboBox1.Text;
  DataModule1.TbSpiller.FieldByName(\'SpillerRaekke\').AsString := ComboBox2.Text;

  If CheckBox1.Checked = True Then
  Begin
  DataModule1.TbSpiller.FieldByName(\'DameSingle\').AsString := \'X\';
  end
  Else
  DataModule1.TbSpiller.FieldByName(\'DameSingle\').AsString := \'\';
  If CheckBox2.Checked = True Then
  Begin
  DataModule1.TbSpiller.FieldByName(\'DameDouble\').AsString := \'X\';
  end
  Else
  DataModule1.TbSpiller.FieldByName(\'DameDouble\').AsString := \'\';
  If CheckBox3.Checked = True Then
  Begin
  DataModule1.TbSpiller.FieldByName(\'HerreSingle\').AsString := \'X\';
  end
  Else
  DataModule1.TbSpiller.FieldByName(\'HerreSingle\').AsString := \'\';

  If CheckBox4.Checked = True Then
  Begin
  DataModule1.TbSpiller.FieldByName(\'HerreDouble\').AsString := \'X\';
  end
  else
  DataModule1.TbSpiller.FieldByName(\'HerreDouble\').AsString := \'\';
  If CheckBox5.Checked = True Then
  Begin
  DataModule1.TbSpiller.FieldByName(\'MixDouble\').AsString := \'X\';
  end
  else
  DataModule1.TbSpiller.FieldByName(\'MixDouble\').AsString := \'\';
  DataModule1.TbSpiller.Post;