I try to read the value from an array declared by using #define preprocessor. I have done that in the following way

#dim MYARRAY[2]
#define MYARRAY[0] 'foo'
#define MYARRAY[1] 'bar'
#define MYARRAY_SIZE 2

[Code]

procedure do_something();
var
    I: Integer;
begin
    for I := 0 to {#MYARRAY_SIZE} do
    begin
        SuprpressibleMsgBox('{#MYARRAY[I]}', mbInformation, MB_OK, IDOK);
    end;
end;

Unfortunately, I got the following error when compiling

Undeclared identifier: I

Any ideas how to solve this problem?