有关gauge控件，请大家帮忙解决一下(100分)

我想用gauge控件显示时间进程，加一个button控件，一个timer控件，一个edit控件。在edit控件中输入时间（如1：30分），按button控件在gauge控件显示时间进程，谢谢各位！

在TIMER事件ONTIMER里写
if GAUGE1.tag<GAUGE1.MAXVALUE then
begin
GAUGE1.progress:=GAUGE1.progress+1;
GAUGE1.tag:=GAUGE1.tag+1;
end
else
TIMER.enabled:=false;
在BUTTON事件里写
TotalCount:=把EDIT中时间换算成分或秒,看你的需要;
GAUGE1.tag:=0;
GAUGE1.MAXVALUE:=TotalCount;
//总秒数
TIMER.ENABLED:=TRUE;