mixster

var poi: TPoint;
    chooselines, chooselevel: integer;
    go: array of boolean;
procedure MenuDraw(Sender: TObject);
var //mainM: array [0..2] of array [0..2] of boolean;
   // key: array of char;
    i: integer;
    str: string;
    b: Boolean;
begin
  //Draw Menu
  str := 'wasdp' + #13;
  SetArrayLength(b, length(str));
  for i := 1 to Length(str) do
  begin
    if IsKeyDown(str[i]) then
      if go[i] then
    case paused of
      true: begin end;
      false:
        begin
        b := True;
        case i of
          1: if Poi.y > 0 then
                 dec(poi.x);
          2: if Poi.x > 0 then
                 dec(poi.x);
          3: if Poi.y < 3 then
                 inc(poi.x);
          4: if Poi.x < 3 then
                 inc(poi.x);
          6: begin
                 if poi.x < 3 then
                   chooselevel := 3 * poi.y + poi.x;
                 writeln(chooselevel);
             end;
        {end  }         else
            b := False;
          end;
          if b then Writeln('Did something -> ' + IntToStr(i));
        end;
    end;
    go[i] := not IsKeyDown(str[i]);
  end;
end;