Can i view jpg or bmp with simba?

[Main]

I just wanna make a random picture opener with simba (I is really bored).
I got like 900 + pictures named with increasing integer (some of them are continous art, others are pure random), and I'd like to be able to make a random picture viewer hopefully in debug window or something.

[Dgby714]

This can show how to load images and whatnot. You could prob make a form with buttons and crap...

program new;

const
  Dir = 'C:\Users\Dgby714\Pictures\';

function AppendArray(Prefix: string; Arr: TStringArray; Suffix: string): TStringArray;
var
  P, I: integer;
begin
  SetLength(Result, Length(Arr));
  P := High(Arr);
  for I := 0 to P do
    Result[I] := Prefix + Arr[I] + Suffix;
end;

function GetFilesR(Dir, Ext: string): TStringArray;
var
  TempArr: TStringArray;
  P, I: integer;
begin
  if (not (Dir[Length(Dir)] = '\')) then
    Dir := Dir + '\';

  if (not (DirectoryExists(Dir))) then
    Exit;

  Result := Result + AppendArray(Dir, GetFiles(Dir, Ext), '');

  TempArr := AppendArray(Dir, GetDirectories(Dir), '\');
  P := High(TempArr);

  for I := 0 to P do
    Result := GetFilesR(TempArr[I], Ext);
end;

procedure RemoveArrIndex(Index: integer; var Arr: TStringArray);
var
  I, P: integer;
begin
  if (not (InRange(Index, Low(Arr), High(Arr)))) then
    Exit;
  P := High(Arr);
  for I := Index + 1 to P do
    Arr[I - 1] := Arr[I];
  SetArrayLength(Arr, Length(Arr) - 1);
end;

function GetImages(): TStringArray;
var
  ImageExts: TStringArray;
  Found: Boolean;
  H, I, J, K, C: LongInt;
begin
  Result := GetFilesR(Dir, '*');

  ImageExts := ['bmp', 'jpg', 'png'];
  H := High(Result);
  for I := H downto 0 do
  begin
    Found := False;
    J := High(ImageExts);
    for K := 0 to J do
    begin
      C := Length(ImageExts[K]);
      if (Copy(Result[I], Length(Result[I]) - C, C + 1) = '.' + ImageExts[K]) then
      begin
        Found := True;
        Break;
      end;
    end;

    if (Found) then
      Continue;

    RemoveArrIndex(I, Result);
  end;
end;

var
  CurPath: string;
  CurBmp, W, H, L: LongInt;
  Images: TStringArray;

begin
  Images := GetImages();
  L := Length(Images);
  WriteLn('Loaded ' + IntToStr(L) + ' Images!');
  if (L = 0) then
    Exit;

  repeat
    CurPath := Images[Random(L)];
    WriteLn('Showing ' + CurPath + '!');
    CurBmp := LoadBitmap(CurPath);
    GetBitmapSize(CurBmp, W, H);
    DisplayDebugImgWindow(W, H);
    DrawBitmapDebugImg(CurBmp);
    FreeBitmap(CurBmp);
    Wait(1000);
    while (not IsKeyDown(VK_SPACE)) do
      Wait(100);
  until(False);
end.