TStringList y Separador

[mjjj]

Estimados, estoy teniendo un problema para leer un archivo csv y separar por ; (punto y coma) en distintos TListbox.
El problema es que existen espacios en blanco y los considera como separador.
Adjunto código.
Favor su ayuda.

Código Delphi [-]
var
  csv :  TStringList;
  i : Integer;  
begin
    csv := TStringList.Create;

    // cargar a partir del fichero csv
    if opendialog1.Execute then
    csv.LoadFromFile(opendialog1.FileName);

    // recorrer las filas
    for i := 0 to csv.Count -1 do
    begin
    ProgressBar1.Position := i;
     listbox1.Items.Add(csv.Strings[i]);

with TStringList.Create do
begin
    QuoteChar := '  ';
    Delimiter := ';';
    DelimitedText:= csv.Strings[i];
    StrictDelimiter := true;

    // Ahora tienes separado el texto en lineas
    listbox2.Items.Add(Strings[0]);
    listbox3.Items.Add(Strings[1]);
    listbox4.Items.Add(Strings[2]);
end;
end;
end;