protected
    procedure CreateParams(var Params: TCreateParams); override;

procedure TPacientForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if not (csDestroying in ComponentState) then
    StrCopy(Params.WinClassName, 'Deymed_EEGAcq');
end;