unit CommonFunctions;

interface

type
  TCommonFunctions = class
  private
  public
    class function VerkorteDnaCode(DnaCode: string): string;
  end;


implementation

{ TCommonFunctions }

class function TCommonFunctions.VerkorteDnaCode(DnaCode: string): string;
begin
  result := Copy(DnaCode,2,5);
end;

end.