// 一般的な object Pascal の文 (Statements)の例
procedure TForm1.Button1Click(Sender: TObject);
var
  iA, iB: Integer;
begin
  iA := 1;
  iB := iA * 2;
end;

//if構文
if 条件判定式 then
    値がTrue/真の時に実行される処理
  else
    値がFalse/偽の時に実行される処理;

//if 文の例
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
  if CheckBox1.isChecked then //チェックボックスの"isChecked"プロパティを判定
    ShowMessage('チェックボックスON') // IsChecked プロパティの値が True. セミコロンなし
  else
    ShowMessage('チェックボックスOFF'); // IsChecked プロパティの値が False
end;

//if 複合文、比較演算子使用の例
begin
  if RadioButton1.isChecked and CheckBox1.isChecked then // and で複数条件確認
  begin // begin - endで複数文をまとめる
    i := i + 1; // begin – end でまとめた文のそれぞれは ; (セミコロン) を付けて一文を区切る
    ShowMessage('チェックボックスON');
  end  //else前に、複数分をまとめるために使ったbegin-endの endの後ろには、セミコロンを付けない
  else if i <= 10 then // else ifでさらに条件判定
    ShowMessage('チェックボックスOFFでiが10以下')
  else
    ShowMessage('チェックボックスOFFでiが10より大きい');
end;

//case文の構文
 case 評価される変数 of
   値1: 評価される変数が値1と等しいときに実行される処理; //セミコロン必要
   値2: 評価される変数が値2と等しいときに実行される処理; //セミコロン必要
   値3: …;
 else //elseとその処理は省略可能
   変数がいずれの値にも合致しないときに実行される処理;
 end;

//case~of 列挙型変数の使用例
type
  TColor = (Red, Green, Blue); //列挙型の定義
var
  myColor: TColor = Red;  //列挙型の変数宣言
procedure TForm1.Button1Click(Sender: TObject);
var
  strColor: string;
begin
  case myColor of     //列挙型変数の値による case of
    Red: strColor := 'Red'; //変数myColorの値がRedなら実行
    Green: strColor := 'Green'; //変数myColorの値がGreenなら実行
    Blue: strColor := 'Blue'; //変数myColorの値がBlueなら実行
  end;
  if strColor <> '' then
    ShowMessage(strColor);
end;

//値に部分範囲を使用した例、およびbigin end; で複数処理をまとめた例
 case aChar of     //Char型の変数によるCase文
    '+': str := 'プラス記号';   //定数一文字の値
    '-': str := 'マイナス記号'; //定数一文字の値
    '0'..'9': str := '数字'; //値指定として部分範囲。数値の0～9
    'A'..'X': str := '英語大文字'; //値指定として部分範囲。数値の0～9
    'a'..'x':
      begin //複数の処理を行う場合begin endでくくる
        str := '英語小文字';
        i := i+1;
      end; //case内で複数分をまとめる場合にbegin-end;を使用。endの後ろには;(セミコロン)
  else //いずれの値にも当てはまらない場合の処理
    str := 'それ以外の文字';
  end;

//forの構文
 for カウンタ(変数) := 初期値 to この値に達した後ループ終了 do
  ループで実行される処理;

//for文の例
var
  I, iTotal : Integer; 
begin
  iTotal := 0;
  for I := 1 to 10 do
  begin 
     iTotal := iTotal + I;
  end;

//Char型の使用例
var
  aChar : Char; 
begin
  for aChar := 'a' to 'z' do
    ShowMessage(aChar);

//列挙型の使用例
type
  TColor = (Red, Blue, Green, Yellow, Black);

var
  aColor : TColor; 
begin
  for aColor := Low(TColor) to High(TColor) do
    begin 
     //省略
    end;

//for in do 構文
 for 現在の要素（変数） in 集合や文字列の変数 do
  ループで実行される処理;

//for in do 使用例
var
  Str : String;
  Ch : Char; 
begin
  Str := 'Hello Delphi World';
  for Ch in Str do 
    ShowMessage(Ch); 

//while構文
 while 条件式 do //条件が満たされている間、ループ（do以下のブロックを実行）
 begin
   I := I + 1;  //ループしたい処理
 end;

//repeat構文
 repeat
    I := I + 1;  //ループしたい処理
 until 条件式; //条件が満たされるまでの間、ループ（repeatに戻る)

//while使用例
 I := 0;
 while I <= 100 do //条件が満たされている間ループ（do以下のブロックを実行）
 begin
   I := I + 1;
 end;
 ShowMessage(I.ToString);

//repeat 使用例
 I := 0;
 repeat
    I := I + 1;
 until I > 100; //条件が満たされるまでの間ループ（repeatに戻る)
 ShowMessage(I.ToString);

//break使用例
  for aChar := Low(Char) to High(Char) do
  begin
    if aChar = 'A' then
    begin
      ShowMessage('見つけた! ');
      Break; //ループから抜ける
    end;
  end;
  ShowMessage(aChar);