Pattern = record
  c: Char;
  Features: TFloatArray;
  Distance: float;
  end;

Recognion_Pattern

This is record Recognion_Pattern.Pattern.