uses shellapi;  
  
procedure TForm1.Button1Click(Sender: TObject);  
begin  
  shellabout(handle, pchar('Programm-Name'),  
    'DBR.Software © 2000-2001' + #13 + 'Version 1.0',  
      application.icon.handle);  
end;