ShowShearDlg example for Delphi

procedure TForm1.ShowShearDlg1Click(Sender: TObject); 
begin
   LEADDlgImage1.Horizontal:= True; 
   LEADDlgImage1.Angle:= 4500; 
   LEADDlgImage1.BackgroundColor:= RGB ( 255, 0, 0 ); 
   LEADDlgImage1.DlgFlags:= DLG_SHEAR_AUTOPROCESS Or         DLG_SHEAR_SHOW_PREVIEW Or
                             DLG_SHEAR_SHOW_BACKCOLOR Or
                             DLG_SHEAR_SHOW_HORIZONTAL; 
   LEADDlgImage1.LEADImage:= LEADImage1; 
   LEADDlgImage1.LEADDlgService:= LEADDlgService1; 
   LEADDlgImage1.ShowShearDlg ( Self ); 
end;