funcion similar a PoS ?

[Tiaguito_Power]

Parece ser un poco tarde pero estaba viendo el foro y vi tu inquietud respecto a los archivos de texto......
Para poder abrirlos podes usar un OpenDialog.... te muestro un ejemplo si no te molesta...

Var Archivo: TextFile;
Aux:String;
Begin
If OpenDialog.Execute Then
Begin
AssignFile(Archivo, OpenDialog.FileName);
Reset(Archivo);
ReadLN(Archivo,Aux);
ShowMessage(Aux);
End;
Quiza sea medio tarde pero bue... espero sirva