manejo de grilla y text file en lazarus

[jaxx]

Buenos días, tengo un problema intentando colocar la información de un textfile en una grilla en lazarus, tengo un text file con información guardada separada por ";", el problema es que no solo separa los datos por columnas cada vez que encuentra un ";", si no que también separa por columnas al encontrarse con espacios, por ejemplo si tengo la linea hello;hola mundo;bye en lugar de separarlo en 3 columnas lo separa en 4 columnas, aquí el código:

Código Delphi [-]
procedure Tform_busqueda.FormActivate(Sender: TObject);
var
  cont:tstrings;
  i:integer;
begin
  cont := tstringlist.create;
  try
    cont.loadfromfile('preg.txt');
    sgd_preg.rowcount := sgd_preg.fixedrows + cont.count;
    for i := 0 to cont.count-1 do
    begin
      cont[i] := stringofchar(';', sgd_preg.fixedcols ) + cont[i];
      sgd_preg.rows[sgd_preg.fixedrows + i].delimiter := ';';
      sgd_preg.rows[sgd_preg.fixedrows + i].delimitedText := cont[i];
    end;
  finally
    cont.free;
  end;
end;

gracias de antemano.