怎么加载sql文件 我的方法错在哪

不知道你使用的数据库是什么？
delete x1; /* 加个分号，除掉星号，试试看 */
delete x2;
delete x3;//如果数据库不支持一下执行多条语句
//就只好先用TStringList载入，分开执行了
with TStringList.Create do try
  LoadFromFile('c:\1.sql');
  for I := 0 to Count do
    if Strings[I] <> '' then begin
      ADOQuery1.SQL.Text := Strings[I];
      ADOQuery1.ExecSQL;
    end;
finally
  Free;
end;