Opendialog abbrechen bei csv Imort in DB klappt nicht!

[Grolle]

Hallo!
Ich lade mit folgendem Code eine csv/txt Datei in meine Datenbank (Ads):

Delphi-Quellcode:

procedure TForm1.ToolButton5Click(Sender: TObject);
var
  T: TextFile;
  ins,a : String;
  trenner, i : SmallInt;

begin
  if OpenDialog1.Execute then
  AssignFile(T,OpenDialog1.FileName);
  Reset(T);
  while not EOF(T) do begin
    Readln(T,ins);
    ins:= ins + ',';
    AdsTable1.Append;
    for i:= 0 to AdsTable1.Fields.Count-1 do begin
      trenner:= Pos(',',ins);
      a := Copy(ins,1,trenner-1);
      Delete(ins,1,trenner);
      AdsTable1.Fields[i].AsString:= a;
    end;
    AdsTable1.Post;
  end;
  CloseFile(T);
end;

Wenn ich im OpenDialog auf abbrechen klicke bekomme ich eine Fehlermeldung (E/A-Fehler 102)