How to grep characters in delphi 3

[akall]

How can i grep a character in a string
ex. character 6 and 7 in sting '2000-46'

[PoseFant]

Var
Grep : String[2];
Begin
Grep := Copy('2000-46',6,2);
End;

The first parameter is a string or a dynamic array, the second is the index of where to start, the third is the count of how many characters to copy including the index character.

Regards

/Filip