SPLIT en delphi, pero sin tener en cuenta espacios en blanco

[acl_gandalf]

HOla buenas, estoy tratando de meter los datos de un fichero en una tabla de unabbdd, y le gastando esta funcion uso como separador la ',' pero me separa tambien por espacios en blanco, q podria hacer para evitar esto.
gracias de antemano

var SLista: TStringList;
Arreglo: array of String;
Indice: Integer;
begin SLista := TStringList.Create;
SLista.Delimiter := Separador; // el separador que uses
SLista.DelimitedText := Cadena; // la cadena a partir
SetLength(Arreglo, SLista.Count);
for Indice := 0 to Pred(SLista.Count) do
Arreglo[Indice] := SLista[Indice];

SLista.Free;