Problemas al cargar el contenido de un fichero en un ListBox

[Delphos]

Hola Foro.

¿Alguien me puede decir porque no me carga el contenido de un fichero en el listbox?

Procedure CargarServicios;
var
F: TextFile;
Linea: String;
begin
If FileExists(ExtractFilePath(Application.ExeName)+ 'Servicios.dat') Then
begin
AssignFile(F,ExtractFilePath(Application.ExeName)+ 'Servicios.dat');
Reset(F);
While Not EOF (F) do
begin
ReadLn(F,Linea);
frmPrincipal.lstServicios.Items.Text := Linea;
end;
CloseFile(F);
end;
end;

El listbox se encuentra situado dentro de un PageControl en TabSheet1 y dentro de GroupBox1 , lo curioso es que es que le he puesto un ShowMessage(Linea), y me va mostrando las lineas del fichero pero estas no se cargan en el ListBox, tambien he comprobado que este no tuviese alguna instruccion que borrase su contenido tipo lstServicios.items.clear despues de ejecutar el procedimiento CargarServicios.

Bueno pues eso es todo, muchas gracias por adelantado.

Salu2.