EDIsaev

Карта в смысле большая, чтобы мышкой её скролить?
Это не рисуют в TImage. Возьми PaintBox, при перемещении или отпускании мыши считай смещение мыши, рисуй в буфере в TBitmap соответствующий кусок карты, в onPaint отображай его.

У тебя проблема в самой функции чтения файла, считать количество строк там не надо, она их считывает по порядку.
Ищи ошибку в ней, начиная с того, что у тебя count уже не инициализированный с самого начала и непонятно зачем после каждой строки ты закрываешь файл и потом открываешь снова, возможно из-за этого снова читаешь ту же строку