if 她爱 Delphi the
Begin
While True do
Begin
Table.Append;
Table.FieldByName('INFO').AsString :='爱情';
Table.FieldByName('PROGRAM').AsString :='Delphi';
Table.Post;
end;
end
else
Begin
Application.ProcessMessages;
Table.Append;
Table.FieldByName('INFO').AsString :='';
Table.FieldByName('PROGRAM').AsString :='Delphi';
Table.Post;
end;