Delphi-Quellcode:
with DIB, dsbm, dsbmih do
begin
if (biSize <> 0) and ((biWidth = 0) or (biHeight = 0)) then Exit;
if (biSize = 0) and ((bmWidth = 0) or (bmHeight = 0)) then Exit;
end;
Diese Klarheit, diese Kürze...
(aus Vcl.Graphics.pas) 
Delphi-Quellcode:
if (biSize <> 0) and ((biWidth = 0) or (biHeight = 0)) then Exit;
if (biSize = 0) and ((bmWidth = 0) or (bmHeight = 0)) then Exit;
Das wär doch vieeeel übersichtlicher. und es würde Tipparbeit sparen...
Aber im Ernst, wie jaenicke schon sagte, ist das ganze nicht so einfach raus zu bekommen. Im Endeffekt, das gleiche Spiel wie damals mit "Goto"...