{
GetClass example
The following example allows users to type the name of a graphics class into an edit control and when a button is pressed, the name of the default extension for that class is displayed in another edit control.
} 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   { make sure the classes are registered so that GetClass will work -- }
   { Usually, this goes in the initialization section where it is only executed once }
  RegisterClasses([TIcon, TBitmap, TJPEGImage, TMetafile]);
  Edit1.Text := GraphicExtension(TGraphicClass(GetClass(Edit2.Text)));
 end; 
