Fehler bei Opendialog

[Bruce86]

Delphi-Quellcode:

procedure TForm1.Button13Click(Sender: TObject);
VAR Dateiname:string;
begin
if OpenDialog2.Execute then
  begin
    Dateiname := OpenDialog2.FileName;
    LoadStringGridFromFile(Stringgrid1,Dateiname);
  end;
end;

Bei diesem Quellcode bricht das Programm nicht ab wenn ich beim Dialog auf Abbrechen klicke!

ABER

Delphi-Quellcode:

procedure TForm1.LoadClick(Sender: TObject);
var
List: TStrings;
i:integer;
begin
List := TStringList.Create;
try
  if OpenDialog3.Execute then
  List.LoadFromFile(OpenDialog3.FileName);
  for i := 1 to 34 do
  begin
  with TEdit(FindComponent( 'Edit' + IntToStr( i)) ) do
begin
  Text:=List[i-1];
end;
  end;
  finally
  List.Free;
end;
end;

Hier bricht das Programm ab wenn ich auf "abbrechen" klicke! Warum??????????

Bitte mal um hilfe

MFG
Bruce86

[DelphiKlaus]

Versuch es mal so

Delphi-Quellcode:

  if OpenDialog3.Execute then 
    begin
      List.LoadFromFile(OpenDialog3.FileName); 

      for i := 1 to 34 do 
        with TEdit(FindComponent( 'Edit' + IntToStr( i)) ) do 
          Text:=List[i-1]; 
    end;

[Blackheart]

Vieleicht solltest Du Deine Threads auch mal verfolgen.
Siehe hier
http://www.delphi-forum.de/viewtopic...143&highlight=