Автор: http://www.swissdelphicenter.ch

{
  If you are using Delphi 2+ and have the ActiveX component TVSSpell, it is very
  simple to add a spell checker to your TMemo applications.
  (Note: Do not use this component with a Rich Edit application because of text
  formatting problems.)
}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Memo1.Text = '' then
    Exit;

  VSSpell1.CheckText := Memo1.Text;
  if VSSpell1.ResultCode = 0 then
    Memo1.Text := VSSpell1.Text;
end;

{
  To distribute a VisualSpeller application you have to include the following
  files:
}

{
- VsSpell.HLP
- VSPELL32.OCX
- VSPELL32.DLL
- AMERICAN.VTD
- VSPELL.HLP
}