Безплатні приватні наче віднедавна вже й на гітхабі є.
Хоча у мене приватні у бітовому кошику. Втім, там не програми.

Добрий вечір панове!
Навіть не знаю як правильно сформулювати питання.
Підкажіть будь ласка чи можливо в RichEdit зробити посилання на електронну пошту?
Наразі в мене виводиться текст як на скріншоті.

Чи можливо зробити так, щоб при кліку лівою кнопкою миші відкривалось в Google Chrome  посилання на пошту, чи просто відкривався Google Chrome, або просто браузер.

Потрібно щоб користувач міг мені відіслати лист з описом помилки, Навіть не знаю як це правильно сформулювати.

Ось код який виводить це повідомлення

 RichEdit1.SelAttributes.Color := clRed;
 RichEdit1.Lines.Add('Знайшли помилку в розрахунках програми!');
 RichEdit1.SelAttributes.Color := clRed;
 RichEdit1.Lines.Add('Надішліть лист з докладним описом помилки на адресу!');
 RichEdit1.SelAttributes.Color := clBlue;
 Richedit1.SelAttributes.Style := [fsUnderline];
 RichEdit1.Lines.Add('sergiymironchuk24@gmail.com');

Я бачу 3 способи:
1. Обробляти вручну повідомлення CN_NOTIFY (EN_LINK), приклад тут: https://stackoverflow.com/questions/425 … -trichedit
Правильно, але довго і складно.
2. Перехоплювати клік по RichEdit (OnClick чи OnMouseUp) і обробляти самостійно: http://www.delphipages.com/forum/showthread.php?p=67083
Нескладно, але треба відстежувати положення.
3. Забити на TRichEdit, помилки мають оброблятися не у звичайному потоці подій. Створіть окреме вікно, поставте там TLabel із посиланням, а ще краще - відправляйте всю потрібну інформацію самостійно (ви ж змінні можете записати? І останні дії? От і записуйте, а не просіть користувача).
Як на мене, саме так і робіть.

ProgramBandera, ви ж бачите, люди ставлять вам питання, на які можна було б просто подивитися репозиторій.

Розумієте пане koala це робиться для того щоб тестувати програму, для розширення можливостей. На ті задачі які я знайшов в підручниках (навіть російськомовних) я вже закінчую прописувати функції та процедури. А придумувати якісь нові свої задачі в мене вже закінчуються ідеї. Пізніше коли я в програму буду додавати 8-й 9-й 10-й та 11-й клас там буде цікавіше. А поки що будемо надіятися на лінивих учнів які будуть присилати нові задачі.

procedure TForm1.Options;

Спробував задати масив

var
Options: array [0..6] of boolean;

і вирішити проблему через (case of) всерівно не допомогло

case Options of
   1 : begin
        if Options[1] = True Then
         Options[0] := True;
       end;

   2 : begin
        if Options[2] = True Then
         Options[0] := True;
       end;

   3 : begin
        if Options[3] = True Then
         Options[0] := True;
       end;

   4 : begin
        if Options[4] = True Then
         Options[0] := True;
       end;

   5 : begin
        if Options[5] = True Then
         Options[0] := True;
       end;

   6 : begin
        if Options[6] = True Then
         Options[0] := True;
       end

   else
    Options[0] := False;
   end;

Видало помилку
[dcc32 Error] Unit1.pas (125810): E2001 Потрібний звичайний тип

Можливо хтось знає як мені призначити значення True та False Для змінної Options або для комірки масиву Options[0]???

Дякую! Питання знято! Я вирішив його. Щоб не перебирати шість змінних на False True, а тоді присвоювати сьомій відповідно False або True, я просто перевірив шість змінних відповідності False і все запрацювало!!! В кожному ComboBox Change прописав код з відповідною змінною.

Для ComboBox9Change

Options1 := False;
 if ((Options1 = False) and (Options2 = False) and (Options3 = False) and (Options4 = False) and (Options5 = False) and (Options6 = False)) then
  begin
   BitBtn1.Top := 544;
   BitBtn2.Top := 544;
   CheckBox2.Caption := '';
   CheckBox3.Caption := '';
   CheckBox4.Caption := '';
   CheckBox5.Caption := '';
   CheckBox6.Caption := '';
   CheckBox7.Caption := '';
   CheckBox2.Visible := False;
   CheckBox3.Visible := False;
   CheckBox4.Visible := False;
   CheckBox5.Visible := False;
   CheckBox6.Visible := False;
   CheckBox7.Visible := False;
  end
 else
  begin
    if Options1 = False then
     begin
      CheckBox2.Caption := '';
      CheckBox2.Visible := False;
     end;
  end;

Для ComboBox10Change

Options2 := False;
 if ((Options1 = False) and (Options2 = False) and (Options3 = False) and (Options4 = False) and (Options5 = False) and (Options6 = False)) then
  begin
   BitBtn1.Top := 544;
   BitBtn2.Top := 544;
   CheckBox2.Caption := '';
   CheckBox3.Caption := '';
   CheckBox4.Caption := '';
   CheckBox5.Caption := '';
   CheckBox6.Caption := '';
   CheckBox7.Caption := '';
   CheckBox2.Visible := False;
   CheckBox3.Visible := False;
   CheckBox4.Visible := False;
   CheckBox5.Visible := False;
   CheckBox6.Visible := False;
   CheckBox7.Visible := False;
  end
 else
  begin
    if Options2 = False then
     begin
      CheckBox3.Caption := '';
      CheckBox3.Visible := False;
     end;
  end;

і так далі.

І, як завжди, якщо маєте 6 змінних Options1..Options6 - значить, вам потрібен масив Options:array[1..6] of boolean;