1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

Procedure TForm1.SpellChkBtnClick(Sender: TObject); 
Var 
  rc, size: integer; 
  buffer: PChar; 
  msg: string; 
  Cancel: Boolean; 
Begin 
  Cancel := False; 
  VCSpeller1.Clearcounts := 1; 
  VCSpeller1.AutoPopUp := False; 
  VCSpeller1.AutoReplace := True; 
  size := RichEdit1.GetTextLen; 
  Inc(Size); 
  GetMem(Buffer, Size); 
  RichEdit1.GetTextBuf(Buffer, Size); 
  VCSpeller1.CheckText := Buffer; 
  rc := VCSpeller1.ResultCode; 
  While rc <= 0 do Begin 
    Case rc of 
      0: Break; 
      Else Begin 
        If (VCSpeller1.ReplaceOccurred = True) Then Begin 
          Buffer := PChar(VCSpeller1.Text); 
          RichEdit1.SetTextBuf(Buffer); 
        End; 
        RichEdit1.SelStart := VCSpeller1.WordOffset; 
        RichEdit1.SelLength := Length(VCSpeller1.MisspelledWord); 
        VCSpeller1.PopUpWordMisspelled := 1; 
        rc := VCSpeller1.ResultCode; 
        If rc > 0 Then Break; 
        If rc = -3 Then Begin 
          MessageDlg('SpellCheck Cancelled!',mtInformation,[mbOK],0); 
          cancel := True; 
          Break; 
        End; 
        If VCSpeller1.ReplaceOccurred = true Then Begin 
          Buffer := PChar(VCSpeller1.Text); 
          RichEdit1.SetTextBuf(Buffer); 
        End; 
        Application.ProcessMessages; 
        rc := VCSpeller1.ResumeCheck; 
      End; 
    End; 
  End; 
  If cancel = false Then Begin 
    msg := 'Spellcheck complete!' + Chr(10); 
    msg := msg + IntToStr(VCSpeller1.WordCount) + ' Words Checked' + Chr(10); 
    msg := msg + IntToStr(VCSpeller1.ReplaceCount) + ' Words Replaced'; 
    MessageDlg(msg, mtInformation, [mbOK],0); 
  End; 
End;