Impresion en inputbox

[nico.white]

Hola chicos, soy bastante nuevo en el tema, quisiera saber si puedo hacer lo siguiente:

Cargo la cantidad de horas y en el inputbox aparecería:

Día "1"----------> quiero que ese uno aparezca , a la segunda vuelta diga Día 2 ....y así hasta el día 6; sería el uno que corresponde al contador
horas: *aquí cargo las horas.

Código Delphi [-]
suma:=0;

  begin
  for cont:= 1 to 6 do
  begin
    horas:=inputbox('Día'+'(inttostr(cont)','horas',''); class="inlineimg" />
    hs:=strtoint(horas);
    suma:=hs+suma;
  end;

 showmessage('la cantidad de horas es'+(inttostr(suma)));

Funciona todo salvo que eso no eh logradro descifrarlo. desde ya muchas gracias