Mistři v programování na #hovnokod

Delphi #631

procedure TShemaForm.T1Timer(Sender: TObject);
begin
ShemaForm.Visible:=true;
ShemaForm.AlphaBlend:=true;
T1.Enabled:=false;
ShemaForm.AlphaBlendValue:=20;
T2.Enabled:=true;
end;

procedure TShemaForm.T2Timer(Sender: TObject);
begin
T2.Enabled:=false;
ShemaForm.AlphaBlendValue:=50;
T3.Enabled:=true;
end;

procedure TShemaForm.T3Timer(Sender: TObject);
begin
T3.Enabled:=false;
ShemaForm.AlphaBlendValue:=100;
T4.Enabled:=true;
end;

procedure TShemaForm.T4Timer(Sender: TObject);
begin
T4.Enabled:=false;
ShemaForm.AlphaBlendValue:=150;
T5.Enabled:=true;
end;

procedure TShemaForm.T5Timer(Sender: TObject);
begin
T5.Enabled:=false;
ShemaForm.AlphaBlendValue:=200;
T6.Enabled:=true;
end;

procedure TShemaForm.T6Timer(Sender: TObject);
begin
T6.Enabled:=false;
ShemaForm.AlphaBlendValue:=255;
ShemaForm.AlphaBlend:=false;
ShemaForm.SetFocus;
MaForm.ShemaB.BevelWidth:=2;
MaForm.ShemaB.Color:=$00C08080;
end;

HovnoKod,