Use as próprias funções nativas do Delphi par isso, segue exemplo:
vResultado := Trim(Copy(FONTE_TEXTO,1,Pos(' ',FONTE_TEXTO)));
Entenda o processo:
Trim, vai remover os espaços,
Copy, vai copiar o texto desejado,
FONTE_TEXTO, local onde o texto se encontra,
1, posição de Start da cópia,
Pos, posiciona no final do local ate onde iremos copiar,
' ', é o nosso limitador, ou seja, a posição final da copia,
FONTE_TEXTO, local onde o texto se encontra (nossa fonte do Pos).
Edit:
Seguindo a explicação que te dei logo acima, basta você alterar a posição de Start da Cópia, observe que copiamos da posição 1 ate posição X com base no separador que é um espaço, agora a posição de Star mudou conforme sua edição, vamos apenas alterar o 1 para uma nova posição de Busca:
Se sabemos que o texto sempre será este e formatado dessa forma, ao invés de informar o 1 vamos buscar com o Pos('<h2>',FONTE_TEXTO)
a posição inicial!
Para a posição final vamos buscar com o Pos(' <STRONG ',FONTE_TEXTO)
Para funcionar, precisamos deletar o restante do texto encontrado, para isso vamos usar uma variável temporária, eu criei um procedimento que você pode usar, seria algo mais ou menos assim:
procedure frmTeste.BtnApurarResultadoClick(Sender: TObject);
var
vTemp : String;
begin
//Procurando o texto, agora com 2 Delimitadores, 1 inicial e 1 final.
vTemp := Trim(Copy(FONTE_TEXTO,Pos('<h2> ',FONTE_TEXTO) + 5,Pos(' <STRONG ',FONTE_TEXTO)));
//Agora deletamos o resto do texto após o número.
Delete(vTemp,Pos(' ',vTemp),Length(vTemp));
//Variavel vResultado alimentada somente com o número apurado!
vResultado := vTemp;
end;