用edit里的数据控制shape控件运动不成功？什么问题？

Question

我得edit2   的数据从TableSour读出，读入TableDest，当数据大于7时，控制shape1运动，可是数据读写没事，shape1也不会动？怎么办？
unit shuiku;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, DB, DBTables, ExtCtrls;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit9: TEdit;
    Label9: TLabel;
    N1: TMenuItem;
    start: TMenuItem;
    over: TMenuItem;
    TableSour: TTable;
    TableDest: TTable;
    Timer1: TTimer;
    Button1: TButton;
    Image2: TImage;
    Shape1: TShape;
    procedure startClick(Sender: TObject);
    procedure overClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.startClick(Sender: TObject);
begin
    Timer1.enabled:=true;
end;procedure TForm1.overClick(Sender: TObject);
begin
     Timer1.enabled:=false;
     TableSour.Active := False;
     TableDest.Active := False;
end;procedure TForm1.Timer1Timer(Sender: TObject);
const
  F_1 = 'shuiwenzhan';
  F_2 = 'shangyou';
  F_3 = 'xiayou';
  F_4 = 'liuliang';
  F_5 = 'shuilunji';
  F_6 = 'rongliang';
  F_7 = 'dianji';
  F_8 = 'riqi';
  F_9 = 'shijian';
var
  V3,v4,v5,v6,v7,v8,v9: Variant;
   j:integer;
begin
  Label1.Caption := F_1;
  Label2.Caption := F_2;
  Label3.Caption := F_3;
  Label4.Caption := F_4;
  Label5.Caption := F_5;
  Label6.Caption := F_6;
  Label7.Caption := F_7;
  Label8.Caption := F_8;
  Label9.Caption := F_9;  TableSour.Active := True;
  TableDest.Active := True;
  TableSour.First;
  
while not TableSour.Eof do
  begin
    TableDest.append;    Edit1.Text := TableSour.FieldByName(F_1).AsString;
    TableDest.FieldByName(F_1).AsString := Edit1.Text;    Edit2.Text := TableSour.FieldByName(F_2).AsVariant;
    TableDest.FieldByName(F_2).AsVariant:= Edit2.Text;
    if single(Edit2.Text)>=7 then
       for j:=0 to 10 do                  //这里来控制shape1运动。shape1.Top:=shape1.Top+35;
    V3 := TableSour.FieldByName(F_3).AsVariant;
    Edit3.Text := V3;
    TableDest.FieldByName(F_3).AsVariant := V3;    V4 := TableSour.FieldByName(F_4).AsVariant;
    Edit4.Text := V4;
    TableDest.FieldByName(F_4).AsVariant := V4;    V5 := TableSour.FieldByName(F_5).AsVariant;
    Edit5.Text := V5;
    TableDest.FieldByName(F_5).AsVariant := V5;    V6 := TableSour.FieldByName(F_6).AsVariant;
    Edit6.Text := V6;
    TableDest.FieldByName(F_6).AsVariant := V6;    V7 := TableSour.FieldByName(F_7).AsVariant;
    Edit7.Text := V7;
    TableDest.FieldByName(F_7).AsVariant := V7;    V8 := TableSour.FieldByName(F_8).AsVariant;
    Edit8.Text := V8;
    TableDest.FieldByName(F_8).AsVariant := V8;    V9 := TableSour.FieldByName(F_9).AsVariant;
    Edit9.Text := V9;
    TableDest.FieldByName(F_9).AsVariant := V9;    TableDest.Post;    TableSour.Next;
    Sleep(500);
    Application.ProcessMessages;
 end;
  TableSour.Active := False;
  TableDest.Active := False;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
    Timer1.enabled:=false;    TableSour.Active := False;
     TableDest.Active := False;
end;end.

Answer 1

    if strtofloat(Edit2.Text)>=7 then
       for j:=0 to 10 do                  //这里来控制shape1运动。shape1.Top:=shape1.Top+35;