Ganjil Genap

var
  I: Integer;
begin
for I := 1 to StrToInt(Edit1.Text ) do begin
  if I mod 2 = 0 then
  Memo1.Lines.Add(inttostr(i))  else

  Memo2.Lines.Add(IntToStr(i) );

end;

end;