Вывести окно с сообщением после того как закончил вводить текст в Memo, который был выведен в RichEdit

unit fMain;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
  Data.DB, Bde.DBTables, Data.Win.ADODB;
 
type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Timer1: TTimer;
    Label3: TLabel;
    DataSource1: TDataSource;
    Table1: TTable;
    Button5: TButton;
    Button6: TButton;
    Panel1: TPanel;
    Button7: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Label3Click(Sender: TObject);
 
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    private
 
 
    procedure GlowingText; // выделить текст в richedit
  end;
 
 ArrayOfChar = array of Char;
 
 TTypingManager = class
 strict private
   FPatternText: string;   // текст шаблона
   FCurrentText: string;   // текст который ввел пользователь
   FCountMistake: integer; // количество ошибок
   FMistakeLetters: ArrayOfChar;
   function isLastLetter: Boolean; // конец слова или нет
   function GetCurrentLetter: integer; // отображает позицию текущего символа, на котором остановилась печать
   function GetNextLetter: string;  // отображает следующий символ, который нужно напечатать
   function GetListOfMistakeLetters: ArrayOfChar;  // получить список с ошибочно напечатанными символами
   procedure SetPatternText(PatternText: string); // установить шаблон текста
 public
   procedure Reset;
   function CheckLetter(Letter: Char): Boolean; // проверка на правильность напечатанного символа
   constructor Create(PatternText: string); // ясно
   destructor Destroy; override; // ясно
   property PatternText: string read FPatternText write SetPatternText;
   property CountMistake: Integer read FCountMistake;
   property CurrentLetter: Integer read GetCurrentLetter;
   property NextLetter: string read GetNextLetter;
   property ListOfMistakeLetters: ArrayOfChar read GetListOfMistakeLetters;
 end;
 
var
  Form1: TForm1;
  TM: TTypingManager;
  has,min,sec:integer;
implementation
 
{$R *.dfm}
 
uses Unit2;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  TM.Reset;
  RichEdit1.Text := TM.PatternText;
  Label1.Caption := 'Кол-во ошибок: ' + IntToStr(TM.CountMistake);
  Label2.Caption := 'Следующий символ: ' + TM.NextLetter;
  RichEdit1.SetFocus;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  TM.PatternText := InputBox('Введите новый шаблон', '', TM.PatternText);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
  var
    tmpList: ArrayOfChar;
    i : integer;
begin
  if Length(TM.ListOfMistakeLetters) > 0 then
    for i:= 0 to Pred(Length(TM.ListOfMistakeLetters)) do
      Memo1.Lines.Add('Напечатал: ' + TM.ListOfMistakeLetters[i] + ', нужно: ' + TM.PatternText[Succ(i)]);
end;
 
 
procedure TForm1.Button5Click(Sender: TObject);
begin
 Form2.Show;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil(TM);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  TM := TTypingManager.Create('Привет! Как твои дела?');
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Tm.CheckLetter(Key);
  Label1.Caption := 'Кол-во ошибок: ' + IntToStr(TM.CountMistake);
  Label2.Caption := 'Следующий символ: ' + TM.NextLetter;
  GlowingText;
end;
 
procedure TForm1.GlowingText;
begin
  with RichEdit1 do
    begin
      SelAttributes.Color:= clBlue;
      SelStart:= 0;
      SelLength:= TM.CurrentLetter;
    end;
end;
 
procedure TForm1.Label1Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Label3Click(Sender: TObject);
begin
 label3.font.size:=30
end;
{ TTypingManager }
 
function TTypingManager.CheckLetter(Letter: Char): Boolean;
begin
  Result := True;
 
  FCurrentText := FCurrentText + Letter;
 
  if not isLastLetter then
    begin
      if FPatternText[Length(FCurrentText)] <> Letter then
        begin
          Inc(FCountMistake);
 
          SetLength(FMistakeLetters, Succ(Length(FMistakeLetters)));
          FMistakeLetters[Pred(Length(FMistakeLetters))] := Letter;
 
          Result := False;
        end;
    end;
end;
 
constructor TTypingManager.Create(PatternText: string);
begin
  SetPatternText(PatternText);
  Reset;
end;
 
destructor TTypingManager.Destroy;
begin
 
  inherited;
end;
 
function TTypingManager.isLastLetter: Boolean;
begin
  Result := True;
 
  if Length(FCurrentText) <> Length(FPatternText) then Result := False;
end;
 
procedure TTypingManager.Reset;
begin
  FCountMistake := 0;
  FCurrentText := EmptyStr;
  FCountMistake := 0;
end;
 
procedure TTypingManager.SetPatternText(PatternText: string);
begin
  if (Trim(PatternText) <> EmptyStr) then
    FPatternText := PatternText;
end;
 
function TTypingManager.GetNextLetter: string;
begin
  if FPatternText[Succ(Length(FCurrentText))] = ' ' then
    Result := 'пробел'
  else
    Result := FPatternText[Succ(Length(FCurrentText))];
end;
 
function TTypingManager.GetCurrentLetter: integer;
begin
  Result := Length(FCurrentText);
end;
 
function TTypingManager.GetListOfMistakeLetters: ArrayOfChar;
begin
  Result := FMistakeLetters;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
 if Timer1.Enabled then
 begin
  Button6.Caption:='Пуск';
  Timer1.Enabled:=False;
 end
else
 begin
  Button6.Caption:='Стоп';
  Timer1.Enabled:=True;
  Panel1.Caption:='00:00:00';
 end;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
 sec := 0;
min := 0;
has := 0
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
 var str:string;
begin
inc(sec);
if sec = 60 then
 begin
  inc(min);
  sec := 0;
 end;
if min=60 then
 begin
  inc(has);
  min:=0;
  sec:=0;
 end;
if has<10 then str:='0'+inttostr(has)
else str:=inttostr(has);
if min<10 then str:=str+':0'+inttostr(min)
else str:=str+':'+inttostr(min);
if sec<10 then str:=str+':0'+inttostr(sec)
else str:=str+':'+inttostr(sec);
Panel1.Caption := str;
end;
 
 
procedure RestartTimer(Timer: TTimer);
begin
  Timer.Enabled := false;
  Timer.Enabled := true;
end;
end.

procedure TForm66.Memo1Change(Sender: TObject);
begin
 if CompareText(RichEdit1.Text,Memo1.Text) = 0
 then ShowMessage('Вам это удалось!');
end;