Delphi 窗体显示在最前面，并获得焦点

SetForegroundWindow(GetLastActivePopup(Self.Handle));

? self.WindowState:=wsNormal;

? self.Show;