求教，关于读写文件的问题

Question

如何用delphi程序读取一个文本文件1，  内容： c:\111\11\ ；然后，输出一个批处理文件，并自动运行该目录下（c:\111\11\ ）的应用程序

Answer 1

AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);

Answer 2

assignfile，rewrite ，writeln，closefile什么的，去查帮助吧。
如果是我就在RUN键里也加上。