procedure DefinitionTextPlay(ResourceName: String; Editor: TCustomMemo);
var
 Res: TResourceStream;
 RTFBuf: TRichEdit;
 Play: Boolean;
begin
 Res := nil;
 RTFBuf := nil;
 Play := True;
 try
  try
   Res := TResourceStream.Create(HInstance, ResourceName, RT_RCData);
  except
   on e: EResNotFound do
   begin
    Play := False;
    Res := TResourceStream.Create(HInstance, 'T Визначення не знайдено', RT_RCData);
   end;
  end;
  RTFBuf := TRichEdit.Create(Editor.Owner);
  RTFBuf.Visible := False;
  RTFBuf.Parent := Editor.Parent;
  RTFBuf.Lines.LoadFromStream(Res);
  RTFBuf.SelectAll;
  RTFBuf.CutToClipboard;
  Editor.PasteFromClipboard;
 finally
  RTFBuf.Free;
  Res.Free;
 end;
 if Play = True then
  PlaySound(PChar('S ' + ResourceName), 0, SND_RESOURCE or SND_ASYNC)
 else
  PlaySound('S Визначення не знайдено', 0, SND_RESOURCE or SND_ASYNC);
end;

procedure DefinitionTextPlay(ResourceName: String; Editor: TCustomMemo);
var
 Text: TResourceStream;
 Play: Boolean;
 Buffer: TRichEdit;
begin
 Buffer := Nil;
 Text := Nil;
 Play := True;
 try
  try
   Text := TResourceStream.Create(HInstance, 'T ' + ResourceName, RT_RCData);
  except
   on e: EResNotFound do
   begin
    Play := False;
    Text := TResourceStream.Create(HInstance, 'T Визначення не знайдено', RT_RCData);
   end;
  end;
  Buffer := TRichEdit.Create(Form2);
  Buffer.Parent := Form2;
  Buffer.Visible := False;
  Buffer.Lines.LoadFromStream(Text);
  Editor.Lines.Add(Buffer.Text);
  Editor.Lines.Add('');
 finally
  Buffer.Free;
  Text.Free;
 end;
 if Play = True then
  PlaySound(PChar('S ' + ResourceName), 0, SND_RESOURCE or SND_ASYNC)
 else
  PlaySound('S Визначення не знайдено', 0, SND_RESOURCE or SND_ASYNC);
end;

Buffer := TRichEdit.Create(Form2);
  Buffer.Parent := Form2;

function Pos(const SubStr, Str: _ShortStr; Offset: Integer): Integer;
{$IFDEF PUREPASCAL}
var
  I, LIterCnt, L, J: Integer;
  PSubStr, PS: _PAnsiChr;
begin
  L := _PStrLen(SubStr);
  { Calculate the number of possible iterations. Not valid if Offset < 1. }
  LIterCnt := _PStrLen(Str) - Offset - L + 1;

  { Only continue if the number of iterations is positive or zero (there is space to check) }
  if (Offset > 0) and (LIterCnt >= 0) and (L > 0) then
  begin
    PSubStr := @SubStr[1];
    PS := @Str[1];
    Inc(PS, Offset - 1);

    for I := 0 to LIterCnt do
    begin
      J := 0;
      while (J >= 0) and (J < L) do
      begin
        if PS[I + J] = PSubStr[J] then
          Inc(J)
        else
          J := -1;
      end;
      if J >= L then
        Exit(I + Offset);
    end;
  end;

  Result := 0;
end;

 PSubStr := @SubStr[1];
    PS := @Str[1];

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
 Form4.ShowModal;
end; 

Form4.ShowModal;

Form := TForm4.Create(Nil);
try
  Form.ShowModal;
finally
  Form.Free;
end;

Type
  TSIPrefixes = (yocto = 'Йокто', zepto = 'Зепто', atto = 'Ато', femto = 'Фемто',
                 pico = 'Піко', nano = 'Нано', µicro = 'Мікро', milli = 'Мілі',
                 centi = 'Санти', deci = 'Деци', deca = 'Дека', hecto = 'Гекто',
                 kilo = 'Кіло', Mega = 'Мега', Giga = 'Гіга', Tera = 'Тера',
                 Peta = 'Пета', Exa = 'Екса', Zetta = 'Зета', Yotta = 'Йота');

Type
  TimeInterval = (Second = 'Секунд', Minute = 'Хвилин', Hour = 'Годин',
                  Day = 'Днів', Week = 'Тижнів', Month = 'Місяців', Year = 'Років');