Dial Up Button Coding

procedure TF_Dial.sButton2Click(Sender: TObject);
begin
  sPC1.ActivePageIndex:=0;
  T2.Enabled:=False;
  T1.Enabled:=True;
end;