Código Delphi [-]if Assigned(ZQuery1) then ShowMessage('ok');
if Assigned(ZQuery1) then ShowMessage('ok');