Pegar somente os números de um texto...

Para pegar somente os números de uma string, pode usar essa função. Ela percorre toda a string e adiciona à variavel vText, os números. O resultado da função é uma string com todos números encontrados.

//-------------------------------------------------------------------------
// Início

Function TForm1.RetornaSomenteOsNumeros(vsTexto: String): String;
var
a: Integer;
vNum, vText: string;
begin
vText := '';
for a := 1 to length(vsTexto) do
begin
vNum := Copy(vsTexto, a, 1);
if (vNum = '1') or (vNum = '2') or (vNum = '3') or (vNum = '4') or (vNum = '5') or(vNum = '6') or (vNum = '7') or (vNum = '8') or (vNum = '9') or (vNum = '0') then
vtext := vtext + vNum;
end;
result := vText;
end;

// Fim
//-------------------------------------------------------------------------