Kysymys......

muuttaa sen pohjan keltasen väriseks eikä toimi tässä rivit

procedure TForm1.Button1Click(Sender: TObject);
var t:integer;
begin
for t:=1 to 10 do begin
ProgressBar1.stepit;
sleep(100); //100 ms viive
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

initialization
{$I unit1.lrs}

end.

Vastaus on siis ihan alkuperäiseen kysymykseen!

"Niin pitääkö initialization kohtaan laittaa jotain kun se siitä herjaa"

Ei tarvitse. Sinulla on ilmeisesti ohjelman rakenne jotenkin virheellinen.

Eli helpoiten löydät virheen kun teet vallan uuden kokeiluprojektin
lisäät sinne vain nuo kaksi komponenttia ja teet tuon
tapahtuman.

Ainoa minkä voisit korjata on lisätä nukkumisen jälkeen on
Application.ProcessMessages;