1:
2:
3:

  private
    { Private declarations }
    MemoLyrics : Array [0..7] of TRichEdit;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function TFormMusicData.getActiveRichEdit():TRichEdit;
var
    i : integer;
begin
  for i := 0 to 7 do
  if (PageControlTexts.ActivePageIndex = [i]) then
    result := MemoLyrics[i]
  else
    result := RichEditDummy;
end;					

1:
2:
3:
4:

Index := PageControlTexts.ActivePageIndex;
if Index >= 0 then
 Result := MemoLyrics[Index] else
 Result := RichEditDummy;