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