Utilizando a função POS - Localizar espaços em branco numa string

Estou desenvolvendo um programa de banco de dados para fins de aprendizado e estou com dúvida na utilização da função POS. Meu objetivo é verificar se existe espaços em branco no campo “CPF” do formulário, antes de confirmar a entrada de dados. Minha primeira tentativa foi utilizar o seguinte código:

procedure TFormClientes.TableClientesBeforePost(DataSet: TDataSet);
var
corrige_branco: string;
Begin
corrige_branco := TableClientesCGC_CPF.Text;
If Pos(' ',corrige_branco) <> 0 then
Begin
MessageDlg ('O campo '+ LabelCGC_CPF.Caption + ' está incompleto!', mtWarning,

[mbOK],0);
DBEditCGC_CPF.SetFocus;
abort;
end;

end;Eu fui testar o código acima deixando, propositalmente, espaços em branco e o retorno dava ‘0’. Testei novamente este código substituindo as aspas ‘ ’ por um número qualquer no meio da string e o retorno deu diferente de zero, ou seja, funcionou. Tentei usar outros artifícios como a procedure VAL e esta funcionou em partes, porque localizou os espaços em branco como eu queria só que quando o espaço em branco estava acima do décimo caractere este também não funcionou. Fui verificar o pq e contatei que a variável CODE não assume valores maiores que 10.

Alguém tem alguma idéia de pq não deu certo o código acima? Alguma sugestão por favor.