procedure TForm1.FormShow(Sender: TObject);
begin try
if GroupBox1.Height = 69 then sp1.Caption := 'more...'
else sp1.Caption := 'hide...';
except end;End;