Opendialog.filename - Problem beim öffnen

[MrFish]

Nabend Leute,

Ich habe ein Problem mit dem Opendialog:

So öffnet sich das Dialogfeld wie gewünscht.

Delphi-Quellcode:

procedure TWochenplan.LadenClick(Sender: TObject);
var
  LoadKW : TStringlist;
  i      : Integer;
  j      : Integer;
  l      : Integer;
begin
 //Opendialog1.FileName := Pfad.text+'42_2004';      <== ohne zuweisung
  if OpenDialog1.Execute then
  begin
    LoadKW := TStringlist.Create;
    LoadKW.LoadFromFile(Opendialog1.FileName);
    KW.Text   := LoadKW[0];
    Jahr.Text := LoadKW[1];
    l := 2;
    for i := 0 to 15 do
    begin
      for j := 1 to 40 do
      begin
        StringGrid1.Cells[i,j] := LoadKW[l];
        l := l+1;
      end;
    end;
  end;
end;

und so auf einmal nicht mehr. Der Wert der mit Pfad.Text+'42_2004' ist der gleiche der im ersten Code über den Objektinspektor zugewiesen wurde. Jetzt erscheint nur ein kurzes flackern, und das wars. Ich habe keine Ahnung was das sein könnte, aber ihr bestimmt

Delphi-Quellcode:

procedure TWochenplan.LadenClick(Sender: TObject);
var
  LoadKW : TStringlist;
  i      : Integer;
  j      : Integer;
  l      : Integer;
begin
  Opendialog1.FileName := Pfad.text+'42_2004';   // <== mit zuweisung
  if OpenDialog1.Execute then
  begin
    LoadKW := TStringlist.Create;
    LoadKW.LoadFromFile(Opendialog1.FileName);
    KW.Text   := LoadKW[0];
    Jahr.Text := LoadKW[1];
    l := 2;
    for i := 0 to 15 do
    begin
      for j := 1 to 40 do
      begin
        StringGrid1.Cells[i,j] := LoadKW[l];
        l := l+1;
      end;
    end;
  end;
end;