Index: AAPClient/UI/DimmerForm.pas =================================================================== diff -u -r115 -r212 --- AAPClient/UI/DimmerForm.pas (.../DimmerForm.pas) (revision 115) +++ AAPClient/UI/DimmerForm.pas (.../DimmerForm.pas) (revision 212) @@ -22,7 +22,6 @@ {$R *.dfm} - procedure TfmDimmerForm.Display; begin with Self do @@ -33,10 +32,8 @@ Height := Application.MainForm.Height; Show; end; - end; - procedure TfmDimmerForm.FormCreate(Sender: TObject); begin AlphaBlend := true;