[[newtron]]

Ok, te he preparado un ejemplo de como lo puedes hacer

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Fichero: TextFile;
  Id,X,Y: SmallInt;
  sLinea: String;
  iCoordenadas: array of array of SmallInt;
begin
  AssignFile(Fichero,'D:\Temp\Fichero.txt');
  Reset(Fichero);
  While not Eof(Fichero) do begin
    ReadLn(Fichero,sLinea);
    if sLinea='[COORDENADAS]' then begin
      ReadLn(Fichero,sLinea); // Nos saltamos la linea ;ID Coord X Coord Y
      while true do begin
        ReadLn(Fichero,sLinea);
        try
          Id:=StrToInt(Copy(sLinea,1,2));
          x :=StrToInt(Copy(sLinea,4,2));
          y :=StrToInt(Copy(sLinea,7,2));
          SetLength(iCoordenadas,Length(iCoordenadas)+1,3);
          iCoordenadas[Length(iCoordenadas)-1,0]:=Id;
          iCoordenadas[Length(iCoordenadas)-1,1]:=x;
          iCoordenadas[Length(iCoordenadas)-1,2]:=y;
        except
          // Entiendo que cuando de error han acabado las coordenadas
          break;
        end;
      end;
    end;
    if Length(iCoordenadas)>0 then break; // Entiendo que ya ha cogido las coordenadas y me salgo
  end;
  CloseFile(Fichero);
  // Aquí ya tienes las coordenadas en la matriz iCoordenadas y puedes continuar...

end;

Espero que te sirva.
Saludos

P.D. El amigo ecfisa se me ha adelantado jejejee