[S.M.S.]

Si el archivo a leer lo tienes escondido en el directorio de Windows, puedes obtener su ruta con el truco 141 de la página de Trucomanía.

Una vez obtenida la ruta del directorio, comprueba si el archivo existe con la función FileExist (creo recordar que este era el nombre de la función).

De existir puedes leer el archivo línea a línea de la siguiente manera:

Código Delphi [-]
Procedure TForm1.Button1Click(Sender: TObject);
var 
F: TextFile;
S: string;
begin
AssignFile(F, Ruta + '\fichero.txt');
//Ruta será una variable tipo string donde habremos guardado el directorio de windows
Reset(F); 
while not SeekEof(f) do // Mientras no llemos al final del fichero... 
begin
Readln(F, S); // Leer las líneas del fichero
label1.caption := S; //adapta esto a tus necesidades
end; 

CloseFile(F); 
end;

Saludos