几道简单Delphi的编程题，谁可以帮帮我啊？？？？

1、以下是一个简单遍历Table1中全部记录的方法，将程序补充完整。
   Table1．DisableControls;
   Table1．First;
While  not Table1．Eof  do
 Begin
   <处理当前记录>
___________________
End;
Table1．enableControls;
2、以下程序段完成___________________ 的功能，并将结果放在Memo1中
procedure TForm1.Button1Click(Sender: TObject);
var
  n, m, i, s : integer;
  f : single;
begin
  For n := 1 To 50 Do
    begin
      m := 2 * n + 1;
      s := 0;
      i := 2;
      f := StrToFloat(inttostr(m));
      While (i <= Sqrt(f)) and (s = 0) do
          If m Mod i = 0 Then s := 1 else i := i + 1;
      If s = 0 Then Memo1.Lines.Add(inttostr(m));
    end;
end;
3、在窗体上放置Ttable、Tdatasource、TDBgrid、TButton、TOpendialog组件各一个，在Button1的onclick事件设计如下代码，实现一个动态打开表文件的功能。假设所有组件的属性已经设置完毕，请补充程序。
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.close；
if opendialog1.execute then
  begin
  table1.tablename:=_______________________;
  table1.open;
end;
end;
4、以下程序段是判断当前记录是否处于数据集的第一条记录，请将程序补充完整。
MyTable．DisableControls ;
Try
 While______________ do
Begin
…
MyTable．Prior;
End;
Finnly
MyTable．enableControls;
End;
5、以下程序段是利用query组件删除一个存储过程Mystoredproc，请将程序补充完整。
With query1  do
Begin
Paramcheck := False;
With  SQL  do
Begin
Clear;
______________________
End;
Excelsql;
End; 
6、以下程序段是实现将 ‘姓名’字段的值改为‘张三’，请将程序补充完整。
With  table1  do
Begin
Table1.edit;
___________________
Table1.post;
End;
7、假设所有变量均已说明,按钮Button1的OnClick事件代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := 'asdf' 
 edit1.Text := UpperCase(edit1.Text);
 edit1.SetFocus ;
end;
则执行以上程序后edit1.Text为___________
8、以下是一个简单遍历Table1中全部记录的方法，将程序补充完整。
   Table1．DisableControls;
   Table1．First;
While  not Table1．Bof  do
 Begin
   <处理当前记录>
___________________
End;
Table1．enableControls;
9、以下程序段是利用query组件删除一个存储过程，请将程序补充完整。
With query1  do
Begin
Paramcheck:=False;
With  SQL  do
Begin
Clear;
______________________
End;
Excelsql;
End;
10、在窗体上放置Ttable、Tdatasource、TDBgrid、TButton、TOpendialog组件各一个，在Button1的onclick事件设计如下代码，实现一个动态打开表文件的功能。假设所有组件的属性已经设置完毕，请补充程序。
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.close；
if opendialog1.execute then
  begin
  table1.tablename:=_______________________;
  table1.open;
end;
end; 
11、以下程序段是实现将 ‘姓名’字段的值改为‘张三’，请将程序补充完整。
With  table1  do
Begin
Table1.edit;
___________________
Table1.post;
End;