Как сделать, чтобы сохраненное окно SaveWindow имело рандомное название?

uses
  GraphABC, Events;
 
procedure MouseDown(x, y, mb: integer);
begin
  MoveTo(x, y);
end;
 
procedure MouseMove(x, y, mb: integer);
begin
  if mb = 1 then LineTo(x, y);
  end;
  procedure Mouseup (x,y,mb:integer);
  begin
  if mb=2 then lineto(x,y);
  end;
  
 
procedure Keydown(Key: integer);
begin
  case key of 
    VK_Z: setpencolor(clwhite);
    VK_W: setpencolor(clBlue);
    VK_C: setpencolor(clgreen);
    VK_A: setpencolor(clRed);
    VK_S: setpencolor(clbrown);
    VK_D: setpencolor(clgold);
    VK_Q: setpencolor(clyellow);
    VK_X: setpencolor(clblack);
    VK_E: setpencolor(clviolet);
    Vk_ESCAPE: window.close;
    VK_M: SaveWindow(x:=random(9999999)'.jpeg');
  end;
end;
begin
 
  setwindowtitle('Paint');
  OnMouseDown := MouseDown;
  OnMouseMove := MouseMove;
  Onkeydown := KEyDown;
  onMouseup:=Mouseup;
end.

VK_M: SaveWindow((random(9999999)).tostring+'.jpeg');

graphabc.SaveWindow(Random(200).ToString+'.jpeg');