ReAl, загалом ви праві, але там настільки все закручене, що я не певен, що так просто вийде. Воно ще більше заплутається.
Ще одна порада:

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
  '0'..'9',#8: ;
  ',':
  if Pos(',',Edit3.Text) <> 0  then
   Key := #0;
  '=':
  if Pos('=',Edit3.Text) <> 0  then
   Key := #0;
  '-':
  if Pos('-',Edit3.Text) <> 0  then
   Key := #0;
  else
   Key := #0;
 end;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
  '0'..'9',#8: ;
  ',':
  if Pos(',',Edit4.Text) <> 0  then
   Key := #0;
  '=':
  if Pos('=',Edit4.Text) <> 0  then
   Key := #0;
  '-':
  if Pos('-',Edit4.Text) <> 0  then
   Key := #0;
  else
   Key := #0;
 end;
end;

procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
  '0'..'9',#8: ;
  '-':  begin
         if Pos('-',Edit10.Text) <> 0  then
         Key := #0;
         Edit10.MaxLength :=3;
        end
  else
   Key := #0;
 end;
end;

procedure TForm1.Edit11KeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
  '0'..'9',#8: ;
  '-':  begin
         if Pos('-',Edit11.Text) <> 0  then
         Key := #0;
         Edit11.MaxLength :=3;
        end
  else
   Key := #0;
 end;
end;

і ще по півдесятка копій таких однакових обробників подій. Їх можна легко об'єднати, якщо обробляти параметр Sender (який вказує на той об'єкт, який створив подію):

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
var EditSender: TEdit;
begin
  EditSender := Sender as TEdit; //якщо ви випадково направите сюди не TEdit, матимете виключну ситуацію EInvalidCast
 case Key of
  '0'..'9',#8: ;
  ',':
  if Pos(',',EditSender.Text) <> 0  then
   Key := #0;
  '=':
  if Pos('=',EditSender.Text) <> 0  then
   Key := #0;
  '-':
  if Pos('-',EditSender.Text) <> 0  then
   Key := #0;
  else
   Key := #0;
 end;
end;

{у властивостях Edit4 вказуєте Edit3KeyPress як обробника події KeyPress}

procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);
var EditSender: TEdit;
begin
  EditSender := Sender as TEdit;
 case Key of
  '0'..'9',#8: ;
  '-':  begin
         if Pos('-',EditSender.Text) <> 0  then
         Key := #0;
         EditSender.MaxLength :=3;
        end
  else
   Key := #0;
 end;
end;

{у властивостях Edit11 вказуєте Edit10KeyPress як обробника події KeyPress}

Ну і, звісно, бажано перейменувати такі обробники - на, скажімо, EditKeyPressFloat та EditKeyPress3Symbols (я не певен, що зрозумів, що саме ви хотіли досягти такими обробниками, тому назви умовні).

І так, порада з обробниками працює трохи гірше, якщо там є посилання на інші елементи. Наприклад,
ComboBox10Change посилається на ComboBox10 та ComboBox16, а
ComboBox11Change - на ComboBox11 та ComboBox17.
Простим перетворенням Sender на ComboBox при об'єднанні ми отримаємо лише ComboBox10 (та ComboBox11). Доведеться дописати некрасивий шматок на кшталт

if Sender = ComboBox10 then begin
  ComboSender := ComboBox10;
  ComboTarget := ComboBox16;
end
else if Sender = ComboBox11 then begin
  ComboSender := ComboBox11;
  ComboTarget := ComboBox17;
end;

Загалом і це можна виправити, але то вже серйозніше.

Так воно уже давно некероване.

Одразу звертаю вашу увагу на те, що у наведеному прикладі 3 та 2 - залежні (певним чином) від 14 числа, а Time5 навряд буде сильно відрізнятися від Time3, окрім якогось значення, пов'язаного із числом чи то 3, чи то 5, залежно від функції. Тобто має сенс розкласти це на

1..27: time_num := отримати_номер_time(те_що_стоїть_в_case);
speed_num := отримати_номер_speed(те_що_стоїть_в_case);
Time(time_num);
Speed(speed_num);
Moving;

Звісно, можна без проміжних змінних, одразу підставити параметрами:

1..27: Time(отримати_номер_time(те_що_стоїть_в_case));
Speed(отримати_номер_speed(те_що_стоїть_в_case));
Moving;

1..27 - це наприклад, я не знаю, які саме мають бути числа.
Тим більше підозрюю, що, якщо Moving розв'язує саме такі рівняння, то йому і слід передавати ці параметри:

1..27: Moving(отримати_номер_time(те_що_стоїть_в_case), отримати_номер_speed(те_що_стоїть_в_case));

Але це стосується конкретно вашого прикладу. У цілому ж, боюся, ви взялися за заздалегідь заважке для себе завдання. Наведу простий приклад:

Автомобіль їхав зі швидкістю 60 км/год 30 хвилин, а потім ще 15 хвилин. Скільки він проїхав?

Задача - так само елементарна. Але ваш код, швидше за все, нічого із нею не зробить, бо не розрахований на таку формулу (s=v*(t+t1)). А якщо ви почнете додавати окремими випадками всі можливі подібні ситуації, код вимушено збільшиться в рази, бо знадобляться розв'язки відносно s,v,t і t1. Але при цьому залишаться нерозглянутими ситуації s=v*(t+t1+t2)... Звісно, можна зробити програму, що розкладатиме подібні вирази і знаходитиме рішення, ще й коментуватиме кожен крок ("Переносимо t1 в ліву частину", "Обчислюємо значення в дужках" і т.д.). Але який сенс від того для користувача?

Зайдемо з іншого боку. Яка мета вашої програми? Навчити користувача правильно розв'язувати задачі з конкретного фіксованого набору?

Це погана порада, бо для Делфі в десятки разів більше різних корисних компонент та бібліотек. З різною довідковою інформацією та уроками те саме. Власне, ви у цьому уже переконалися самі.

Якщо в програмі є елементи інтерфейсу, що повторюються і працюють групами, то пора застосовувати так звані фрейми. Приблизно як у цьому відео: https://www.youtube.com/watch/emPh3_UBg-I?t=1814 Документація: http://docwiki.embarcadero.com/RADStudi … ith_Frames Взагалі, фрейми знаходяться дуже близько до об'єктно-орієнтованого програмування, з яким вам варто познайомитися. Призначення цього підходу - розбити складні програми на менші, відносно незалежні, шматочки, з якими буде легко працювати. Наприклад у вас могли б бути окремі типи Швидкість, Час, Відстань. Та об'єкти Швидкість1, Швидкість2, Час1 і так далі.

Об'єктно-орієнтоване програмування (ООП) - це наступний крок після процедурного. Якщо у вас уже є купа процедур, значить ви, мабуть, уже почали помічати, що часто вам доводиться передавати одні й ті ж параметри по черзі в декілька різних процедур, а також, що у вас є процедури які працюють лише з одним конкретним типом параметрів. Звідси до ООП зовсім недалеко.

Добрий вечір добрим людям!
Підкажіть будь ласка як вписати Рі в функцію формат?
Переписую в коді ось такі рядки:

RichEdit1.Lines.Add (FloatToStr(Variables[2,0]) + 'м. / ' + FloatToStr(Variables[1,0]) + 'с. = ' + FloatToStr(Variables[4,0]) + 'м.с.');

на рядки

RichEdit1.Lines.Add (Format('%.25gм. / %.25gс. = %.25gм.с.',
                       [Variables[3,0], Variables[1,0], Variables[4,0]]));

А як правильно записати ось такий рядок, якщо там є Рі FloatToStr(Pi)

RichEdit1.Lines.Add ('(2 * ' + FloatToStr(Pi) + ' * ' + FloatToStr(Variables[43,0]) + 'м.)' + ' / ' + FloatToStr(Variables[7,0]) + 'с. = ' + FloatToStr(Variables[4,0]) + 'м.с.');

Питання знято! Вже сам додумався. Код буде ось такий

RichEdit1.Lines.Add (Format('(2 * %.25g * %.25gм.) / %.25gс. = %.25gм.с.',
                       [Pi, Variables[43,0], Variables[7,0], Variables[4,0]]));

На кінець-то я починаю розуміти функцію Format!

Вивело так як треба!

Знайти:
v - Швидкість  км/год. - Кілометрів за годину
 
 
 
------------
Дано:
T - Період обертання  37  год. - Годин
R - Радіус  40  км. - Кілометрів
   
   
   
   
------------
CI:
T = 37*3600
T - Період обертання  =  133200  Секунд
R = 40*1000
R - Радіус  =  40000  Метра(ів)
------------
Розв'язання:
ФIЗИКА — НАУКА ПРО ПРИРОДУ

Швидкiсть руху тiла  — це фiзична величина, яка показує, яку вiдстань проходить тiло за одиницю часу в напрямi руху. Позначають швидкiсть руху тiла малою латинською лiтерою v.

Визначаємо швидкість рівномірного руху по колу

(2 * 3,14159265358979 * 40000м.) / 133200с. = 1,88684243458846м.с.

Пане topprogrammer, а як правильно замінити set масив на масив з більшою кількістю елементів.
Мені просто створити новий масив з більшою кількістю елементів, і якого типу його робити? Він же не extended буде, вірно?