function sqlfile(filename : string) : string;
begin
  if not fileexists(filename) then toolsst.exceptionst('SQL File not found!');
  oTmpQry := TADOQuery.Create(nil);
try
  try
    oTmpQry.Connection := Conn;
    oTmpQry.CommandTimeout := 10000;
    oTmpQry.LoadFromFile(filename);
    oTmpQry.Active := True;
    result := 'OK';
  except
    on e : exception do begin
      result := e.Message;
    end;
  end;
Finally
  oTmpQry.free;
end;
end;

C:\>test.exe
[20120327] [13:55:44] [DEBUG] Checking if Table exist ...
[20120327] [13:55:44] [DEBUG] Database connect   [OK]
[20120327] [13:55:44] [DEBUG] Table not found! Try to create ...
Exception: CREATE TABLE SQL EXCEPTION: Das Recordset kann anhand der angegebene
Quelle nicht erstellt werden. Die Quellendatei oder der Strom mu▀ Recordsetdaten
 im XML- oder ADTG-Format enthalten

C:\>