Obsługa bledow

Dzień dobry
Chciałem sie zapytac w którrych miejscach wpisac obsługe bledów

procedure TDane.WczytajDane(nrPliku : Integer; NazwaPliku : String);
var  ZmPlik : TextFile;           //zmienna plikowa przy otwieraniu pliku
     LiniaPliku : String;
     i, j : Integer;            //zliczanie wierszy i kolumn w pliku
     lancuch : String;
     liczba : Single;           //plikuuu
     lancuch2 : String;
     liczba2 : Single;
     liczba1 : Single;


begin
if (nazwaPliku <> '')   then

  AssignFile(ZmPlik, NazwaPliku);

  try

  Reset(ZmPlik);
  Readln(ZmPlik, LiniaPliku);
  i := 1;
  j := 0;


  case nrPliku of
    1 : file1 := NazwaPliku;
    2 : file2 := NazwaPliku;
    3 : file3 := NazwaPliku;
    4 : file4 := NazwaPliku;
  end;
  while not Eof(ZmPlik) do begin

      Readln(ZmPlik, LiniaPliku);
      
         
      case nrPliku of

         1 : begin
            SetLength(Plik1, j+1, 5);                                      //tab dynamiczna 5el
            Plik1[j][0] := StrToFloat( Trim(Copy(LiniaPliku,1,10)) );
            Plik1[j][1] := StrToFloat( Trim(Copy(LiniaPliku,61,10)) );     //usuwa spacje i kopiuje wskazane frag tekstu
            Plik1[j][2] := StrToFloat( Trim(Copy(LiniaPliku,71,10)) );
            Plik1[j][3] := StrToFloat( Trim(Copy(LiniaPliku,41,10)) );
            Plik1[j][4] := StrToFloat( Trim(Copy(LiniaPliku,51,10)) );






         end;



         2 : begin
            SetLength(Plik2, j+1, 5);
            Plik2[j][0] := StrToFloat( Trim(Copy(LiniaPliku,1,10)) );       //wybór drugiego pliku
            Plik2[j][1] := StrToFloat( Trim(Copy(LiniaPliku,61,10)) );
            Plik2[j][2] := StrToFloat( Trim(Copy(LiniaPliku,71,10)) );
            Plik2[j][3] := StrToFloat( Trim(Copy(LiniaPliku,41,10)) );
            Plik2[j][4] := StrToFloat( Trim(Copy(LiniaPliku,51,10)) );
         end;
         3 : begin
            SetLength(Plik3, j+1, 5);
            Plik3[j][0] := StrToFloat( Trim(Copy(LiniaPliku,1,10)) );
            Plik3[j][1] := StrToFloat( Trim(Copy(LiniaPliku,61,10)) );
            Plik3[j][2] := StrToFloat( Trim(Copy(LiniaPliku,71,10)) );
            Plik3[j][3] := StrToFloat( Trim(Copy(LiniaPliku,41,10)) );
            Plik3[j][4] := StrToFloat( Trim(Copy(LiniaPliku,51,10)) );
         end;
         4 : begin
            SetLength(Plik4, j+1, 5);
            Plik4[j][0] := StrToFloat( Trim(Copy(LiniaPliku,1,10)) );
            Plik4[j][1] := StrToFloat( Trim(Copy(LiniaPliku,61,10)) );
            Plik4[j][2] := StrToFloat( Trim(Copy(LiniaPliku,71,10)) );
            Plik4[j][3] := StrToFloat( Trim(Copy(LiniaPliku,41,10)) );
            Plik4[j][4] := StrToFloat( Trim(Copy(LiniaPliku,51,10)) );
         end;

      end;
   
      j := j + 1;
      if not Eof(ZmPlik)  then Readln(ZmPlik, LiniaPliku);
      

 //end;
end;

try na początku
except
//costam
end;
na końcu

djmentos napisał(a)

try na początku
except
//costam
end;
na końcu

To to wiem :) ale gdzie konkretnie mam to ustawic ?

try - tuż po pierwszy begin
except
//costam
end;
tuż przed ostatnim end;