if not Assigned(Fm_LsckLr) then begin Application.CreateForm(TFm_LsckLr, Fm_LsckLr); end else begin Fm_LsckLr.Show; Fm_LsckLr.WindowState:=wsNormal; Fm_LsckLr.BringToFront; end; procedure TFm_LsckLr.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; Fm_LsckLr:=nil; end;
Application.CreateForm(TFm_LsckLr, Fm_LsckLr);
end else begin
Fm_LsckLr.Show;
Fm_LsckLr.WindowState:=wsNormal;
Fm_LsckLr.BringToFront;
end;
procedure TFm_LsckLr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
Fm_LsckLr:=nil;
end;