Hola...
mira, en realidad no se si quieres extraer un texto o reemplazar algo...
Código Delphi
[-]
AnsiReplaceStr('Texto en Donde buscar','D','d')
lo anterior te busca dentro del texto la letra D y la reemplaza por la d
si quieres extraer o copiar puedes hacerlo con
Código Delphi
[-]
Copy('Texto a copiar',1,5)
lo anterior te copia 5 caracteres desde la primera posición (izquierda a derecha).. el resultado de lo anterior es Texto
Salu2