Impresion en inputbox

[ecfisa]

Hola nico.white.

Cuando incluyas código en tus mensajes por favor usa las etiquetas como explica la siguiente imágen:



Supongo que lo que deseas sería algo así:

Código Delphi [-]
...
var
  cont, suma,hs: Integer;
  horas: string;
begin
  suma :=0;
  for cont:= 1 to 6 do
  begin
    horas := InputBox('Día '+ IntToStr(cont),'horas','');
    hs := StrToIntDef(horas, 0); 
    suma := hs +suma;
  end;
  ShowMessage('la cantidad de horas es ' + IntToStr(suma));
end;

Saludos y gracias por tu colaboración