Funktion in selbst erstellter Form

[DelphiUser1]

Ja das ist natürlich richtig, aber es bestanden genaue Vorgaben, also es soll schon so gemacht werden. das Seltsame ist das gerade die Onclick-Methode des Buttons auf der erzeugten Form nicht mehr geht. also der Code für die Form ist ja oben und hier nochmal der Quelltext für das Onclick Ereignis, wer findet den fehler

Delphi-Quellcode:

procedure TReg.Button1Click(Sender: TObject);
var sl, sd, sf: TStrings;
i:integer;
begin
Label3.Caption:=XorStr(Edit1.Text, 21);
  sl := TStringlist.Create;
  sf :=TStringlist.Create;
  sl.add(Label3.Caption);
  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);
  for i := 0 to Form1.Checklistbox1.Items.Count-1 do
      if Form1.Checklistbox1.Checked[i] then
      sf.Add(Form1.Checklistbox1.Items[i]);
  sd.SaveToFile(path+'Info'+Edit2.Text+'.txt');
  sf.SaveToFile (path+'Hobbys'+Edit2.Text+'.txt');
  sd.free;
  sl.free;
  sf.free;
  Showmessage ('Du hast erfolgreich ein Konto angelegt');


  if MessageDlg('Willst du dich jetzt anmelden?', mtConfirmation, [mbyes, mbno], 0) = mrYes then
  begin
  Form1.Visible:=True;
  Form1.PageControl1.ActivePageIndex:=0
  end else
  Form1.Close;
end;