На жаль ні, не допомогло, все та ж помилка ресурс не знайдено

S := TResourceStream.Create(HInstance, 'SКуб', RT_RCDATA);

Ось коди конструкторів:

constructor TResourceStream.Create(Instance: THandle; const ResName: string;
  ResType: PChar);
begin
  inherited Create;
  Initialize(Instance, PChar(ResName), ResType);
end;

constructor TResourceStream.CreateFromID(Instance: THandle; ResID: Integer;
  ResType: PChar);
begin
  inherited Create;
  Initialize(Instance, PChar(ResID), ResType);
end;

Я вже не розумію чому воно не находить ні файлу ресурсу ні самого ресурсу. Остання надія, можливо документи *.txt потрібно англійськими писати SКуб.txt => SKube.txt І тільки тоді в рестораторі створювати файл GeometryText.res

Текстові файли мали розширення .txt як і звукові файли мали розширення .wav, але функцією

PlaySound('Куб', 0, SND_RESOURCE or SND_ASYNC);

ресурс 'Куб' я викликаю без розширення .wav. Я думаю і текстовий файл так само потрібно викликати просто вказавши 'SКуб'. Я створюю файл *res в програмі Restopator там в усіх файлах (наприклад) з розширенням *wav розширення пропадає і лишається тільки назва ресурсу Куб, а в текстових відповідно SКуб. Та навіть якщо я прописую

S := TResourceStream.Create(HInstance, 'SКуб. txt', RT_RCDATA);

все рівно не знаходить ресурсу.

Пробіл тільки я тут написав в програмі його не має.
Я спробую тест провести не в Delphi 10.3, а не в 7-й версії можливо там вийде щось з ресурсу.

Звичайно здатна. І розширення там зникає, його не потрібно писати.

PlaySound('Куб', 0, SND_RESOURCE or SND_ASYNC);

В ресурсах немає ніяких розширень, а є лише секції. Декілька типів секцій є спеціалізованими, наприклад для іконок, картинок, курсорів, wav-файлів. А для усього іншого є секція RCDATA. Тому вказувати ім'я ресурсу треба без розширення.
res-файли є проміжним сховищем для даних. Коли ви компілюєте програму, то весь вміст res-файлу копіюється в exe-файл. Відкрийте своїм редактором ресурсів готовий exe, і самі усе побачите.

Вечір добрий панове! Підкажіть будь-ласка як прописати функцію DefinitionText на випадок якщо користувач ввів в Edit1 текст який не співпвдає з назвою ресурсу. Як в такому випадку прописати умову?

implementation

{$R *.dfm}
{$R GeometryText.res}
{$R PhysicsText.res}
{$R GeometrySound.res}
{$R PhysicsSound.res}

Function DefinitionText(Text: String): TResourceStream;
var
 s: TResourceStream;
begin
 try
  s := TResourceStream.Create(HInstance, 'T ' + Text, RT_RCData);
  result := s;
 finally
  s.Free;
  s.Destroy;
 end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 a: string;
begin
 a := Edit1.Text;
 RichEdit1.Lines.LoadFromStream(DefinitionText(a));
 PlaySound(PChar('S ' + a), 0, SND_RESOURCE or SND_ASYNC);
end;

P.S Наприклад користувач ввів слово температура, а це явище вивчається не в сьомому класі а в восьмому. Програма видасть помилку: Ресурс не знайдено!

1. Обробка помилок. Це окрема велика тема, тут не лише про виключні ситуації (try - except - finally).
Код функції TForm2.Button1Click (ви людські назви колись об'єктам даватимете?) взагалі не передбачає можливості помилки; загалом, це може бути правильним рішенням, виключні ситуації для цього й придумали. Але тоді виходить, що ви обробляєте виключну ситуацію "немає ресурсу" в DefinitionText, а потім даєте результат (який може бути неправильним!) у TForm2.Button1Click. У цьому випадку, гадаю, оптимальний варіант - пропустити виключну ситуацію, хай її стандартний обробник жує (він табличку показує).
2. Обробка того, що вводить користувач.
Ви дозволяєте користувачам вводити імена ресурсів. Не треба так робити. Я вже мовчу про регістр (великі-маленькі літери); але уявіть собі, що ви колись додасте тести в програму, і хтось дізнається імена назв ресурсів цих тестів. Ви даєте користувачу інтерфейс для сканування ресурсів вашої програми. Хоча б перевіряйте, що введено, і трохи перетворюйте (викидайте пробіли, робіть всі літери маленькими і т.д.)
3. finally. Схоже, ви скопіювали код деінде і не розбиралися, що там таке. finally означає "виконати в будь-якому випадку, була виключна ситуація чи ні" і потрібен, зокрема, щоб гарантовано знищити ресурс перед завершенням функції - тоді він виглядає десь так. Але ж ваша функція не має знищувати ресурс, навпаки, вона має його повернути.

Пане Torbins а якщо у випадку незнайденого ресурсу результату функції присвоювати текст: (Визначення не знайдено!). Це можливо якось зробити? Можливо так я уникну помилки в роботі програми?

Function DefinitionText(Text: String): TResourceStream;
var
 s: TResourceStream;
begin
 s := Nil;
 try
   s := TResourceStream.Create(HInstance, 'T ' + Text, RT_RCData);
   Result := s;
 except
  on e: EResNotFound do
   begin

    {Якщо ресурс не знайдено тут потрібно результату функції присвоїти
    текст: (Визначення не знайдено!). Як це прописати кодом???}

    // s := 'Визначення не знайдено!';
    // Result := s;

    {Так буде не правильно, тому що не сумісні типи String та Stream}

   end;
 end;
end;

P.S Поки пропустимо процедуру PlaySound.

Якщо хочете повернути з функції рядок, то так і пишіть: "Function DefinitionText(Text: String): String". І, відповідно, потім

RichEdit1.Lines.Add(DefinitionText(s));

Покажіть, будь ласка, який у вас тепер код в TForm2.Button1Click.