Form caption doesn't show

Hi everyone,

In the FormShow for form Report01Frm (with labels TitleLbl and XtraInfoLbl), I
call

SetTitles(Report01Frm,TitleLbl,XtraInfoLbl);
Update;

with

PROCEDURE SetTitles(Frm: TForm; Lbl1,Lbl2: TLabel);
  VAR P: Byte;
  BEGIN
    Frm.Caption := RepoTitle[RepNo];
    P := Pos('.',RepoTitle[RepNo]);
    Lbl1.Caption := TrimStrLeft([' '],Copy(RepoTitle[RepNo],P+1,80));
    Lbl2.Caption := RepoDescrip[RepNo];
  END; { SetTitles }

When the form is displayed, the two labels have new captions but the form
doesn't...
What could be happening here???

Bye,
Jan

-----------------------------------------------------------------------
Jan Doggen                Masters Software           mass...@xs4all.nl
P.O. Box 697              2300 RA  Leiden            The Netherlands
-----------------------------------------------------------------------
** Specialists in multimedia software for education and presentation **
-----------------------------------------------------------------------
Usage of this email address for commercial purposes costs US$ 50 per
message. By using this email address you agree to this condition.
-----------------------------------------------------------------------