Problema con ExtractString

[capo979]

Hola gente tengo un problema con ExtractString. En la ayuda dice que
Note: ExtractStrings does not add empty strings to the list. o sea que no agrega los string vacios que a la lista como puedo hacer para que me lo haga??

Uso lo siguiente

ExtractStringsNueva([';'],[],PAnsiChar(s),sl);

s es del tipo String y sl TStringList

Muchas gracias

Saludos