一个小问题，但是急

Question

在设计过程中，我遇到一个问题，但就是找不到出错的地方，请大家帮我看看．在线等
procedure TF_stay.FormCreate(Sender: TObject);
begin
  ComboBox1.Text := '男';
  MaskEdit3.Text := '1.00';
  MonthCalendar1.Visible := False;
  Button1.Enabled := False;
  Button2.Enabled := False;  //检索空房
  with Query1 do
  begin
   if Active then Close;   SQL.Clear;
   SQL.Text:='select kfxx.fh,fjlx.fjlx,kfxx.lc,kfxx.cws,kfxx.bzj,kfxx.zdj,kfxx.bz';
   SQL.Text:='from kfxx, fjlx';
   SQL.Text:='where kfxx.xh=fjlx.xh and kfxx.ztdm='0'';
   //Query1.Active := True;
   Open;
  end;
end;error:missing operator or semicolon  

Answer 1

SQL.add('select kfxx.fh,fjlx.fjlx,kfxx.lc,kfxx.cws,kfxx.bzj,kfxx.zdj,kfxx.bz');
   SQL.add('from kfxx, fjlx');
   SQL.add('where kfxx.xh=fjlx.xh and kfxx.ztdm='0'');SQL.add  多居连接，多行SQL.Text 好像只能一句，一行

Answer 2

SQL.Text:='where kfxx.xh=fjlx.xh and kfxx.ztdm=''0''';错了，这里少了单引号。

Answer 3

if Active then Close这里写错了
if not active then 
begin
  openend