Free for PREMIUM members
Go Premium for a chance to win a PS4. Enter to Win
Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
procedure TTimeOutForm.Button1Click(Sender: TObject);
selected : string;
Timer1.Enabled := false;
if Sender is TTimer then
else //Sender is Button
procedure TTimeOutForm.FormCreate(Sender: TObject);
Timer1.Interval := 10;
ProgressBar1.Max := 300; //300 * 10 = 3000 := 3 seconds
ProgressBar1.Position := 0;
Timer1.Enabled := true;
procedure TTimeOutForm.Timer1Timer(Sender: TObject);
if ProgressBar1.Position = (ProgressBar1.Max) then
Open in new window
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.