Conditional: FOR DO and WHILE DO

var
  i : Integer;

FOR DO

for i := 1 to 3 Do
 Memo1.Lines.Add(IntToStr(i));

WHILE DO

while i < 6 Do
  begin
    Memo2.Lines.Add(IntToStr(i));
  end;