1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

  function GetMaxResID: integer;
  var
    Buffer: array[0..MAX_PATH] of Char;
    n: integer;
  begin
    for n := 0 to 9999 do
    begin
      if Loadstring(hinstance, n, @buffer, MAX_PATH) = 0 then
      begin
        if GetLastError <> ERROR_SUCCESS then
          break
        else
          Result := n;
      end
      else
        Result := n;
    end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function GetMaxResID: integer;
  var
    Buffer: array[0..MAX_PATH] of Char;
    n: integer;
  begin
    n:=-1;
    repeat inc(n);
      until (loadstring(hinstance,n,@buffer,max_path) = 0)
        and (getlasterror<>ERROR_SUCCESS);
    result:=n+1;
  end;