procedure TForm5.Button1Click(Sender: TObject);
 var
  SL: TStringList;
  B: Integer;
  StrNum: Integer;
begin
      StrNum := 1;
      SL.Create;
      try
       SL.LoadFromFile('txt.txt');
       B := StrToInt(SL.Strings[StrNum]);
      finally
       SL.Free;
      end;
end;

procedure TForm5.Button1Click(Sender: TObject);
 var
  SL: TStringList;
  I: Integer;
  S: String;
  NumStr: Integer;
begin
      NumStr := 2; //Номер строки в файле txt.txt
      SL := TStringList.Create;
      try
       SL.LoadFromFile('D:\txt.txt');
       I := StrToInt(SL.Strings[NumStr - 1]); //Число
       S := SL.Strings[NumStr - 1];           //Строка
      finally
       SL.Free;
      end;
end;