[kdemia]

a ver si te sirve ?

Código Delphi [-]
var
  Form1: TForm1;
  Matriz : Array of Array of Integer;

Código Delphi [-]
procedure TForm1.Procesar ( sArchivo: String );
var
  MiArchivo: TStringList;
  i, j, Index: Integer;
  Texto: String;
begin
  MiArchivo := TStringList.Create;
  MiArchivo.LoadFromFile(sArchivo);
  Index := MiArchivo.IndexOf(';ID Coord X Coord Y');

  for i := 0 to Index do
    MiArchivo.Delete(0);

  Index := MiArchivo.IndexOf('[VERTICES]');

  for i := Index - 1 to MiArchivo.Count - 1 do
    MiArchivo.Delete(Index - 1);

  SetLength(Matriz, 3, MiArchivo.Count);

  for i := 0 to MiArchivo.Count - 1 do
  begin
    Texto:= MiArchivo.Strings[i];
    for j := 0 to 2 do
    begin
      Matriz[j, i] := StrToInt(Copy(Texto, 1, Pos(' ', Texto) - 1));
      Delete(Texto, 1, Pos(Texto, ' ') - 1);
    end;
  end;
  MiArchivo.Free;
end;

Llamada al ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Procesar('C:\MiArchivoDeTexto.txt');
end

disculpa no soy muy bueno con los comentarios.. si no entendes alguna linea me preguntas