Fehler beim Laden einer Textdatei

[gangs-taas]

hey
ich weiß nicht ob es euch/mir hilft aber ich habe sowohl

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
Var
  KWoche : integer;
begin
  KWoche := WeekOfTheYear(Now);
  Edit1.TExt:= IntToStr(KWoche);
  Zwischenspeicher := TStringList.Create;
  if(KWoche > 0) Then begin
    Textdatei := woche+IntToStr(KWoche)+ext;
    Textdatei2 := woche+(IntToStr(KWoche +1))+ext;
    InDieMemoFelderSchreiben(Textdatei, Textdatei2);  //hier eine Breakpoint
    Datum_Wochen_Start_erstellen ;                    //und hier einen Breakpoint
  end;
end;

und den breakpoint bei Indiememo.... löst noch nicht den fehler aus und in der nächsten zeile wird der fehler erst ausgelöst, nachdem ich hier :

    Datum_Wochen_Start_erstellen ; //und hier einen Breakpoint
auf F9 drücke. Meine breakpoints hier :

Delphi-Quellcode:

procedure TForm1.Datum_Wochen_Start_erstellen;
Var
  Year : Integer;
  Woche : Integer;
  Tag : Integer ;
  Datum : TDate;
  Monat : Word;
  Tage : Word;
  Jahr : Word ;
begin
  Year := StrToInt(Edit8.Text);  // hier ist nen brakpoint
  Woche := StrToInt(Edit1.Text); // und hier
  Tag := 1;
  Datum := StartOfaWeek(Year,Woche,Tag);
  DecodeDate(Datum, Jahr, Monat, Tage);
  Edit2.Text := IntToStr(Tage);
  Edit3.Text := IntToStr(Monat);
  Edit4.Text := IntToStr(Jahr);
end;

kommen aber erst NACH dem fehler ...

wie kann das sein ?!