Aus TStringList laden

[Martin.Ghosts]

Tut mir leid wenn ich hier keine Peilung hab. Ich fühl mich schon schlecht weil andere für mich dei Arbeit machen vielen Dank noch mal an der Stelle.

hier nochmal der ganze Quelltext:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);

var laden: TStringList;
    frm: TForm;
    edt: TEdit;
    i: Integer;

begin
  laden:=TStringList.Create();
  Form4.Show;
  if ((FileExists('Tabelle\'+Form1.Button8.Caption+'. '+Form1.ComboBox1.Text+' '+Form1.SpinEdit1.Text+'.'+Form1.ComboBox2.Text+'.txt'))=true) then
    begin
      laden.LoadFromFile('Tabelle\'+Form1.Button8.Caption+'. '+Form1.ComboBox1.Text+' '+Form1.SpinEdit1.Text+'.'+Form1.ComboBox2.Text+'.txt');
      i:=0;
      repeat
        begin
          showmessage('a'+IntToStr(i));
          frm:=Application.FindComponent(copy(laden[i],1,pos('.',laden[i])-1)) as TForm;
          showmessage('b'+IntToStr(i));
          if frm <> nil then
            begin
              showmessage('c'+IntToStr(i));                                            /////nach c6 fehler
              edt:=frm.FindComponent(copy(laden[i],pos('.',laden[i])+1,MaxInt)) as TEdit;
              showmessage('d'+IntToStr(i));
            end;
          i:=i+2;
        end;
      until(i>laden.Count-1);
    end
  else
    begin
      Form4.Edit1.Text:=Form1.Button8.Caption;
      Form4.Caption:=Form4.Edit1.Text+'. '+Form1.ComboBox1.Text+' '+Form1.SpinEdit1.Text;
    end;
  laden.Free;
  Form4.GroupBox1.SetFocus;
  Kaloriensoll;
end;

folgendes steht in der txt-Datei(Anfang):

Form4.ComboBox0

Form4.SpinEdit0

Form4.Edit0

Form4.ComboBox1<-----------------------hier kommt der fehler (c6 s.o.) 'Ungültige Typumwandlung'

Form4.SpinEdit1
100
Form4.Edit1
1