t_id 1510 t_adddate 2005/03/06 t_result 0 t_knownrunerror 0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
program bug1; function f : tobject; begin f := tobject.create; end; var s : single; begin s := single(f); end.