nao consigo gravar os dados na tabela

nao consigo gravar meus dados na tabela, quando eu fecho meu sistema e abro novamento os dados nao estao gravados na tabela ...

vou postar os codigos dos meus botoes

botao inserir :

procedure Tfrm_cadastro.BitBtn1Click(Sender: TObject);

begin

SDS1.append; // cria um registro em branco apos o ultimo

DBEdit1.SetFocus; // Coloca o foco no DBEdit1

 DBEdit12.Clear;

 DBEdit1.Clear;

 DBEdit2.Clear;

 DBEdit3.Clear;

 DBEdit4.Clear;

 DBEdit6.Clear;

 DBEdit7.Clear;

 DBEdit8.Clear;

 DBEdit9.Clear;

 DBEdit10.Clear;

 DBEdit11.Clear;

 DBRichEdit1.Clear;

 DBRadioGroup1.ItemIndex := 0;

 DBEdit1.SetFocus ;

 BitBtn4.Enabled:= true ;

end;

botao gravar:

begin

If not (DBEdit1.Text <> '') then // se o campo prontuario nao estiver em branco

Begin

 ShowMessage('O Número do Prontuário é obrigatório');

 DBEdit2.SetFocus ;

 BitBtn4.Enabled:= true ;

 end

 else

 If not (DBEdit2.Text <> '') then // se o campo nome nao estiver em branco

 Begin

 ShowMessage('O Nome do Paciente é obrigatório');

 DBEdit2.SetFocus ;

 BitBtn4.Enabled:= true ;

 end

 

 else

 

 begin

 if not (DBRadioGroup1.ItemIndex =0) then

 begin

 SDS1.FieldbyName('Sexo').asstring :='Feminino';

 end

 else

 SDS1.FieldbyName('Sexo').asstring :='Masculino';

 

 DBEdit1.Text := SDS1.FieldByName('prontuario').AsString;

 DBEdit2.Text := SDS1.FieldByName('nome').AsString;

 DBEdit3.Text := SDS1.FieldByName('dt_nasc').AsString;

 DBEdit4.Text := SDS1.FieldByName('sus').AsString;

 DBEdit6.Text := SDS1.FieldByName('endereco').AsString;

 DBEdit7.Text := SDS1.FieldByName('bairro').AsString;

 DBEdit8.Text := SDS1.FieldByName('cidade').AsString;

 DBEdit9.Text := SDS1.FieldByName('tel_r').AsString;

 DBEdit10.Text :=SDS1.FieldByName('tel_c').AsString;

 DBEdit11.Text := SDS1.FieldByName('hipotese').AsString;

 DBEdit12.Text := SDS1.FieldByName('encaminhado').AsString;

 DBRichEdit1.Text := SDS1.FieldByName('observacao').AsString;

 

 SDS1.post;

 

 

 DBEdit1.Clear;

 DBEdit2.Clear;

 DBEdit3.Clear;

 DBEdit4.Clear;

 DBEdit12.Clear;

 DBEdit6.Clear;

 DBEdit7.Clear;

 DBEdit8.Clear;

 DBEdit9.Clear;

 DBEdit10.Clear;

 DBEdit11.Clear;

 DBRichEdit1.Clear;

 DBRadioGroup1.ItemIndex := 0;

 DBEdit1.SetFocus ;

 BitBtn4.Enabled:= false ;

 end;

 

end;

O que que tá errado ai pessoal ?????