Listenindex überschreitet Maximum(1)

[DelphiUser1]

Wenn wir schonmal dabei sind:
Ich will jetzt Informationen einer Checklistbox abspeichern, so wie unten gecoded klappt das auch, aber ich will das er die Informationen nicht in fa sondern in sd mit abspeichert (2)
Ideen?
(1)
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i := 0 to Checklistbox1.Items.Count-1 do
begin
if Checklistbox1.Checked[i] then
fa:=TstringList.Create;
fa.Add(Checklistbox1.Items[i])
end;

(2)
procedure TReg.Button1Click(Sender: TObject);
var sl, sd: TStrings;
i: Integer;
begin
sl := TStringlist.Create;
sl.add(Edit1.Text);
sl.savetofile(path+ Edit2.Text +'.txt');
sd :=TStringlist.Create;
sd.Add(Form1.Edit3.Text);
sd.Add(Form1.Edit4.Text);
sd.Add(Form1.MaskEdit1.Text);
sd.Add(Form1.Edit6.Text);
sd.Add(Form1.ComboBox3.Text);
sd.SaveToFile(path+'Info'+Edit2.Text+'.txt');
sd.free;
sl.free;
Showmessage ('Sie haben erfolgreich ein Konto angelegt');
myForm.close;
Form1.Close;