Gravar um CheckBox

Olá companheiros, estou passando os seguintes comandos para gravar em um arquivo texto:

[color=blue:d23c740805]Para um Campo Edit[/color:d23c740805]

FldCks := PhoCks(Form1.Edit1.Text,6, CriptoTbl_DTT);
Writeln(TmpHandle,´001´+PadR(Form1.Edit1.Text,70)+FldCks); //Casa
RecCks := RecCks + FldCks;


[color=blue:d23c740805]Para um RadioGroup[/color:d23c740805]

str(Form1.RadioGroup1.ItemIndex,s);
FldCks := PhoCks(s,6, CriptoTbl_DTT);
Writeln(TmpHandle,´015´+PadR(s,70)+FldCks); // Sexo
RecCks := RecCks + FldCks;

[color=red:d23c740805]Como posso fazer para gravar um CheckBox?[/color:d23c740805]