Title: How to show Credits for the own components
constructor YourComponentCreate(AOwner: TComponent);
begin
inherited Create(AOwner);
{...}
{Display a message during the load operation...}
if (csDesigning in ComponentState) and not (csloading in ComponentState) then
MessageDlg('Created by Totsios Dimitrios ', mtInformation, [mbOK], 0);
end;