1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

uses
  u_vsDateTime, u_vsDate, u_vsTime, U_HDLocation,  W95color, u_vszeitzone,
  u_dbvsdate, u_dbvsTime, u_dbvsLocation, AstroPanel, Mond_Phasen,
  Mond_Ansicht, UOrteDB, GeoGradMin, Q_Sommerzeit, USommerDB, Rahmen, UVsImage;
procedure Register;
begin
  RegisterComponents('HHD',
    [TVsDate, TDbVsDate, TVsTime, TDbVsTime, THD_Location, TDbVsLocation,
     TVsDateTime, TVsZeitZone]);
  RegisterComponents('HHD',[TAstroPanel, TMond_Phasen, TMond_Ansicht,
    TOrteDB, TGeoGradMin, TQ_Sommerzeit, TSommerDB, TRahmen, TVsImage]);
  RegisterComponents('HHD', [TWin95ColorButton]);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

uses
  ...

type
  TFormxy = ...
  private
    FMyPanel: TAstroPanel;
  end;

// FormCreate:
FMyPanel := TAstroPanel.Create(Self);
FMyPanel.Parent := Self;
FMyPanel.SetBounds(10, 200, 200, 300);
FMyPanel....