if pos(ansilowercase(Memo2.Text[i]),gl)<>0

 if pos(ansilowercase(Memo2.Text[i]),gl)=0

for i:=Length(Memo1.Text)-1 downto 0 do

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  if Memo1.Text='' then exit;
  Memo2.Clear;
  for i:=Length(Memo1.Lines.Text) downto 1 do
    if Memo1.Text[i]<>' ' then Memo2.Text:=Memo2.Text+Memo1.Text[i];
end;

procedure TForm1.Button2Click(Sender: TObject);
const gl='аеёиоуыьэюя';
var
  i,j: integer;
begin
  if Memo2.Text='' then exit;
  Memo3.Clear;
  j:=0;
  for i:=1 to Length(Memo2.Text) do
  begin
    if pos(ansilowercase(Memo2.Text[i]),gl)=0
      then Memo3.Text:=Memo3.Text+Memo2.Text[i]
      else Memo3.Text:=Memo3.Text+ansiuppercase(Memo2.Text[i]);
    inc(j);
    if j>=5 then
    begin
      Memo3.Text:=Memo3.Text+' ';
      j:=0;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
//Объявляем переменную типа integer
  i: integer;
begin
//Если многострочный редактор с исходными данным(далее "src_Memo") не содержит данные, то выходим
  if Memo1.Text='' then exit;
//Очищаем многострочный редактор, в который будем записывать полученные данные(далее "dst_Memo")
  Memo2.Clear;
//С последнего символа до первого пробегаемся по src_Memo
  for i:=Length(Memo1.Lines.Text) downto 1 do
  //Если текущ. символ не пробел, то записываем его в dst_Memo
    if Memo1.Text[i]<>' ' then Memo2.Text:=Memo2.Text+Memo1.Text[i];
end;

procedure TForm1.Button2Click(Sender: TObject);
//Объявляем константу, кот. содержит гласные
const gl='аеёиоуыьэюя';
var
////Объявляем 2 переменные типа integer
  i,j: integer;
begin
//Если многострочный редактор с исходными данным(далее "src_Memo") не содержит данные, то выходим
  if Memo2.Text='' then exit;
//Очищаем многострочный редактор, в который будем записывать полученные данные(далее "dst_Memo")
  Memo3.Clear;
//Обнуляем переменную j
  j:=0;
//Пробегаемся с первого символа в src_Memo до последнего
  for i:=1 to Length(Memo2.Text) do
  begin
    //Если текущий символ не найден в константе gl (т.е. не является гласной)
    if pos(ansilowercase(Memo2.Text[i]),gl)=0
      //то записываем его
      then Memo3.Text:=Memo3.Text+Memo2.Text[i]
      //иначе тоже его записываем, предварительно преобразовав в прописную
      else Memo3.Text:=Memo3.Text+ansiuppercase(Memo2.Text[i]);
    //Увеличиваем переменную j на единицу
    inc(j);
    //Если j больше или равна 5
    if j>=5 then
    begin
      //В dst_Memo дописываем пробел
      Memo3.Text:=Memo3.Text+' ';
      //Обнуляем j
      j:=0;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  MyIni: TIniFile;
begin
  MyIni:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'Options.ini');
  //Показываем текущее значение параметра
  ComboBox1.Text:=IntToStr(MyIni.ReadInteger('Main', 'Interval', 5));
  //Составляем список выбора возможных значений параметра Interval
  ComboBox1.Items.Add('5');
  ComboBox1.Items.Add('10');
  ComboBox1.Items.Add('20');
end;

procedure TForm1.FormShow(Sender: TObject);
var
  MyIni: TIniFile;
begin
  MyIni:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'Options.ini');
  //Составляем список выбора возможных значений параметра Interval
  ComboBox1.Items.Add('5');
  ComboBox1.Items.Add('10');
  ComboBox1.Items.Add('20');
  //Показываем текущее значение параметра
  ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(IntToStr(MyIni.ReadInteger('Main', 'Interval', 5)));
end;