请你们帮帮我看一下如下的代码~我好多都不知道是什么意思你们能不能告诉我一下他们每句话的大概意思哈~：：谢谢了哈！！！（查看）
procedure Tpaperautoform.N1Click(Sender: TObject);
begin
    autoanswerform.Show;
end;

procedure Tpaperautoform.N24Click(Sender: TObject);
begin
//mainform.papertime:=mainform.papertime+1;
  query1.Close;
   query1.SQL.Clear;
   query1.SQL.text:='insert into papermanager values(:gg,''自动'',:ss,:dd)'  ;

// query1.ParamByName('nn').AsInteger:=mainform.papertime;
 query1.ParamByName('gg').AsString:=definepaperform.DBEdit1.Text;
 query1.ParamByName('ss').AsString:=paperautoform.Memo1.Text  ;
 query1.ParamByName('dd').AsString:=autoanswerform.Memo1.Text     ;

//  query1.ParamByName('hh').AsInteger:=strtoint(definepaperform.DBEdit18.Text) ;
   query1.ExecSQL;
   DataModule4.Table_papermanager.Active:=false;
   DataModule4.Table_papermanager.Active:=true;
end;

procedure Tpaperautoform.N9Click(Sender: TObject);
begin
memo1.Undo;
end;

procedure Tpaperautoform.N10Click(Sender: TObject);
begin
memo1.CutToClipboard;
end;

procedure Tpaperautoform.N11Click(Sender: TObject);
begin
memo1.CopyToClipboard;
end;

procedure Tpaperautoform.N7Click(Sender: TObject);
begin

  query1.Close;
   query1.SQL.Clear;
    query1.SQL.text:='insert into papermanager values(:gg,''自动'',:ss,:dd)'  ;


query1.ParamByName('gg').AsString:=definepaperform.DBEdit1.Text;
 query1.ParamByName('ss').AsString:=paperautoform.Memo1.Text ;
 query1.ParamByName('dd').AsString:=autoanswerform.Memo1.Text ;


//  query1.ParamByName('hh').AsInteger:=strtoint(definepaperform.DBEdit18.Text) ;
   query1.ExecSQL;
  //  mainform.papertime:=mainform.papertime+1;
//savedialog1.Title:='保存生成后的试卷';
//savedialog1.FileName:=fname;
//if savedialog1.Execute then
 //  begin
  // filename:=savedialog1.FileName;
 //  memo1.Lines.SaveToFile(filename+'.doc');
 //  end;

 DataModule4.Table_papermanager.Active:=false;
   DataModule4.Table_papermanager.Active:=true;
end;

procedure Tpaperautoform.N8Click(Sender: TObject);
begin
close;
end;

end.