Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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.
procedure TForm1.Button1Click(Sender
begin
{$i C:\initProfiler}
...
{$i C:\stopProfiler}
end;
And then in C:\InitProfiler.pas you have...
{$IFDEF PROFILER}
// your code...
TButton(Sender).Caption := 'Testing';
{$ENDIF}
And similar in StopProfiler.pas...