Configure a label or form caption

Hello Derek,
I am enriched once again with your lucid explanation and script. This is what I have been trying to achieve. Though no more required in this project, can the label4 inside the form be configured in a similar way? Thanks a lot!
Regards,
Eyeman

Hello Derek,
Thanks again. Now I understand the principle, how to create label caption and form caption. Surely, this learning will be useful in other projects too!
Regards,
Eyeman

Hello Eyeman,
I imagine it's because AA_Form_007_OPD_VISIT_REC is called from 2 different places.
If you upload your full project (minus the .exe) then I can try and have a look.
Derek.

Hi Eyeman,
Thanks for attaching your project but I can't run it on my machine (you've got more than 150 tables and 130 forms and it just hangs);  I hope you've got a PC that can run your project without too much delay!
But I was able to have a look at the script and also at the data in your tables (using SQLiteStudio) and I think what is happening is that in your 'select' statement, you are not checking for firstname and/or middlename and/or lastname being blank.  If any of your records has any of these fields missing, the AA_Form_007_OPD_VISIT_REC caption won't get filled.
As a quick test, try adding middlename to one or two of the records and see if that fixes it.
If it does, then replace the existing section in your script with the following which tests for 'null' in the fields you're trying to join:
.
procedure DB_Form_002_LIST_OPD_VISIT_REGISTER_Button5_OnClick (Sender: TObject; var Cancel: boolean);
begin
  AA_Form_007_OPD_VISIT_REC.Caption := sqlexecute('select ifnull(First_name,"")||" "||ifnull(middle_name,"")||" "||ifnull(Last_name,"") from AA_001_REC_PATIENT_REG where id = (select id_AA_001_REC_PATIENT_REG from AA_002_REC_Visits where id = "'+DB_Form_002_LIST_OPD_VISIT_REGISTER.TG_VISIREC_LIST.sqlvalue+'")');
end;
.
I think this will fix your problem but, as I say, I've not been able to get your program to run to be able to prove it.
Derek.