[Delphos]

Hola foro

Resulta que tengo dos procedimientos:

Uno que graba el contenido de un Listbox en un fichero de texto

Procedure GrabarServicios;
  var
   F : TextFile;
begin
   //frmPrincipal.lstServicios.Items.SaveToFile(ExtractFilePath(Application.ExeName)+ 'Servicios.dat');
    AssignFile(F,ExtractFilePath(Application.ExeName)+ 'Servicios.dat');
    ReWrite(F);
    WriteLn(F,frmPrincipal.lstServicios.Items.Count);
    WriteLn(F,frmPrincipal.lstServicios.Items.Text);
    CloseFile(F);
end;

Y Otro que carga el contenido del archivo en un Listbox

Procedure CargarServicios;
  var
   F : TextFile;
   Linea: String;
   Longitud : Integer;
begin
    {
   If FileExists(ExtractFilePath(Application.ExeName)+ 'Servicios.dat') Then
     frmPrincipal.lstServicios.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'Servicios.dat');
    }
   If FileExists(ExtractFilePath(Application.ExeName)+ 'Servicios.dat') Then
    begin
     AssignFile(F,ExtractFilePath(Application.ExeName)+ 'Servicios.dat');
     Reset(F);
     frmPrincipal.lstServicios.Items.Clear;
     While Not EOF (F) do
      begin
       ReadLn(F,Linea);
       Longitud := Length(Linea);
       If Longitud > 1 then

        frmPrincipal.lstServicios.Items.Add(Linea);
      end;
      CloseFile(F);
    end;
end;

Pues resulta que en el listbox donde cargo la informacion aparece el contenido del archivo en filas como deberia de estar

dato1
dato2
dato3
......

Pero en realidad lo trata como si todo fuese un mismo elemento ya que cuando selecciono un elemento de este listbox para pasarlo a otro lo que me pasa es esto

dato1 simbolo dato2 simbolo dato3 simbolo ...

El simbolo es como un salto de linea o de terminacion de texto no lo se con exactitud es parecido a " pero mas grande y grueso.

Pues la pregunta es que puedo hacer para que los elementos se cargen en el Listbox como elementos individuales y no lo trate todo como si fuese uno.

Muchas Gracias de Antemano.

Salu2.