begin
  With SimpleDataSet1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Insert into rj values (:yi,:mt,:ca)');
    Parameters.ParamByName('yi').Value := DateTimePicker1.Date;
    Parameters.ParamByName('mt').Value := RichEdit1.Text;
    Parameters.ParamByName('ca').Value := RichEdit2.Text;
       ExecSQL;
  end;
以上代码编译不能通过,问题在那里?
[Error] Unit1.pas(52): Undeclared identifier: 'SQL'
[Error] Unit1.pas(53): Missing operator or semicolon
[Error] Unit1.pas(54): Object or class type required
[Error] Unit1.pas(54): Missing operator or semicolon
[Error] Unit1.pas(55): Object or class type required
[Error] Unit1.pas(55): Missing operator or semicolon
[Error] Unit1.pas(56): Object or class type required
[Error] Unit1.pas(56): Missing operator or semicolon
[Error] Unit1.pas(56): Missing operator or semicolon
[Error] Unit1.pas(57): Undeclared identifier: 'ExecSQL'
[Error] Unit1.pas(70): Undeclared identifier: 'SQLQuery1'
[Error] Unit1.pas(73): Undeclared identifier: 'SQL'
[Error] Unit1.pas(74): Missing operator or semicolon
[Error] Unit1.pas(75): Undeclared identifier: 'ParamByName'
[Error] Unit1.pas(75): Missing operator or semicolon
[Error] Unit1.pas(76): Missing operator or semicolon
[Error] Unit1.pas(77): Undeclared identifier: 'Open'
[Error] Unit1.pas(79): 'THEN' expected but identifier 'RecordCount' found
[Error] Unit1.pas(81): Missing operator or semicolon
[Error] Unit1.pas(83): Missing operator or semicolon
[Error] Unit1.pas(83): Missing operator or semicolon
[Error] Unit1.pas(107): Undeclared identifier: 'DateTimePicker2'
[Error] Unit1.pas(107): Missing operator or semicolon
[Error] Unit1.pas(108): Undeclared identifier: 'DateTimePicker3'
[Error] Unit1.pas(108): Missing operator or semicolon
[Fatal Error] Project33.dpr(5): Could not compile used unit 'Unit1.pas'