Copy(S; Index, Count: Integer): string;
var numero, resultado : string; begin numero := '12345678'; resultado := Copy(numero, 8, 1); ShowMessage('resultado : '+resultado); end;