with SubTitleForm do begin Color := ClGray; BorderStyle := bsNone; Left := 0; Top := 0 Enabled := False; Width := GetSystemMetrics(0); Height := GetSystemMetrics(1); Parent := BGForm;