如何实现读写SQL脚本文件？？

Question

如题：：下面是部分实现的代码
var
  s:string;
  sqltext : string;
  sqlfile : TestFile;
if OpenDialog1.Execute then
  //返回文件的名称和路径，你可以从open的属性FileName   中获得
  begin
    AssignFile(sqlfile, OpenDialog1.FileName);
    FileMode :=0;
    reset(sqlfile);
    try
      ADOConnection1.BeginTrans; //连接数据库
      while not eof(sqlfile) do //判断是不是SQL脚本的末尾 ，将SQL脚本文件
      begin                    //存储到sqltext中
        Readln(sqlfile, s);
        sqltext:=s;
        while (not eof(sqlfile)) ，在编译的时候TestFile找不到，求一TestFile的代码，谢谢