
procedure TForm1.DisplayButtonClick(Sender: TObject);
var
  MS: TMemoryStream;
begin

MS:=TMemoryStream.Create;
try

 h[5]:=horiz; h[6]:=vert;
  a:=horiz; if (a and 3<>0) then a:=(a+4) and $FFFFFFFC; h[9]:=a*vert; h[1]:=h[9]+1078;
  //assign(f,'Mandelbrot.bmp'); rewrite(f,1);
  MS.Write(h, 2);
  MS.Write(h[1], 52);
  //blockwrite(f,h,2); blockwrite(f,h[1],52);
  for a:=0 to 254 do
  begin
    pal[a][0]:=round(127+127*cos(2*pi*(a+16)/255)); pal[a][1]:=round(127+127*sin(2*pi*(a+16)/255)); pal[a][2]:=q[a]; pal[a][3]:=0
  end;
  for a:=0 to 2 do pal[255][a]:=255; pal[255][3]:=0;

  //blockwrite(f,pal,1024);
  MS.Write(pal, 1024);
  step:=size/horiz;
  absc2:=absc-step*(horiz-1)/2; ordi2:=ordi-step*(vert-1)/2;
  for b:=0 to vert-1 do
  begin
    n:=ordi2+b*step;
    for a:=0 to horiz-1 do
    begin
      m:=absc2+a*step;
      c:=m; d:=n; t:=4081;
      repeat cc:=c*c; dd:=d*d; d:=(c+c)*d+n; c:=cc-dd+m; dec(t) until (t=0) or (cc+dd>1000000.0);
      if (t=0) then s[a]:=255 else s[a]:=t mod 255;
    end;
    MS.Write(s, h[9] div vert);
    //blockwrite(f,s,h[9] div vert);
    //write('Done: ',b+1,chr(13))
  end;

  MS.Position:=0;
  Image1.Picture.LoadFromStream(MS);
finally
  MS.Free;
end;
  //close(f)
end;

procedure TForm1.ZoomInButtonClick(Sender: TObject);
begin
 size := size-size*0.2;
 DisplayButtonClick(Sender);
end;

Всё же так удобнее оценивать ваши труды. Бросил на форму две кнопки и контейнер для изображений, по клику наблюдаем результат, а не появившийся в папке файл :-)