About Box

This form has the intention to show the Software situation. If the user is registered, a message in the Label3 will be displayed saying that the software is registered. If not, a message in red will be displayed saying that the software still in evaluation period.

Let's analyze the main code of this form:

procedure TAboutBox.FormShow(Sender: TObject);
begin
        //The Label2 will receive the Software code
1-      Label2.Caption:=frmMainForm.ActiveLock1.SoftwareCode;

        //We'll verify if the user is registered
2-        if not (frmMainForm.ActiveLock1.RegisteredUser) then

        //If not, the message 'This software is not registered' is displayed
        //in Red
        begin
3-      Label3.Font.Color:=clRed;
4-      Label3.Caption:='This software is not registered';
        end
        else

        //If the software is registered the message 'The software is registered.'
        //in dark blue.
        begin
5-      Label3.Font.Color:=clNavy;
6-      Label3.Caption:='The software is registered.';
        end;
end;

In the first line, the Software Code will be displayed in the Label 2.

The second makes a verification if the user is registered. If not registered, a tittle message (line 4) will be displayed in red (line 3). If the user is registered, a little message (line 6) will be displayed in dark blue (line 5 (or Navy color, if you prefer)).