unit videoform; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Global; type Tvideo = class(TForm) procedure FormClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var video: Tvideo; procedure videoshow; implementation uses main; procedure videoshow; begin {$IFNDEF NEWMEDIAPLAYER} video.show; mainform.mp.Display:=video; video.boundsrect:=screen.Monitors[config.videomonitor].BoundsRect; mainform.mp.DisplayRect:=video.ClientRect; {$ENDIF} end; {$R *.dfm} procedure Tvideo.FormClick(Sender: TObject); begin video.hide; end; end.