ループを終了し次のループに移る (continue文の利用) - Delphi

Delphiでループの途中でループを中断し、次のループへ移るにはcontinue文を用います。

コード例

procedure TForm1.Button12Click(Sender: TObject);
var
  i,j:integer;
begin
  for i:=0 to 2 do begin
    for j:=0 to 10 do begin
      if j mod 2 = 0 then continue;
      Memo1.Lines.Add(Format('%d %d',[i,j]));
    end;
  end;
end;

実行結果