Текстовый редактор + проверка орфографии

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, LazUTF8, SysUtils, FileUtil, RichMemo, Forms, Controls, Graphics, Dialogs,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    RichMemo1: TRichMemo;
    procedure FormCreate(Sender: TObject);
    procedure RichMemo1Change(Sender: TObject);
    procedure RichMemo1KeyPress(Sender: TObject; var Key: char);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  s: string;
  slovo,sl1, s1, s2: string;
  onn, m, n, tr: Integer;
  slovar: string;
  slovechko,slovozavr,slovechko2,slovechko3: string;
  d:array[0..500,0..500] of integer;
  r1,r2:array [1..100] of Integer;
 
implementation
 
{$R *.lfm}
 
procedure proverka;
var a: string;
    f: TextFile;
    function swap(c1:char; c2:char):integer;
begin
    if c1=c2 then
        swap:=0
    else
        swap:=1;
end;
 
function min(a:integer;b:integer;c:integer):integer;
begin
    if (a<b) and (a<c) then
        min:=a
    else
        if(b<c) and (b<a) then
            min:=b
        else
            min:=c;
end;
 
      function LevenShtein: string;
      var i,j: integer;
          begin
            n:=length(s1);
            m:=length(s2);
 
            for i:=0 to n do
              for j:=0 to m do
                  d[i,j]:=0;
 
            for i:=1 to n do
             d[i,0]:=d[i-1,0]+1;
 
            for j:=1 to m do
             d[0,j]:=d[0,j-1]+1;
 
            for i:=1 to n do
            begin
                for j:=1 to m do
               begin
                  d[i,j]:=min(d[i-1,j]+1,d[i,j-1]+1,d[i-1,j-1]+swap(s1[i],s2[j]));
               end;
             end;
             if d[n,m]=0 then tr:=1;
             if d[n,m]=1 then LevenShtein:=s1 else if d[n,m]<=2 then LevenShtein:=s1;
          end;
begin
a:='';
AssignFile(f,'lop2v2.txt');
Reset(f);
slovechko:='';
slovechko2:='';
slovechko3:='';
s2:=sl1;
while not eof(f) do
  begin
    readln(f,s1);
    slovozavr:=LevenShtein;
    if tr=1 then Break else
    if slovechko='' then slovechko:=slovozavr else
    if slovechko2='' then slovechko2:=slovozavr else slovechko3:=slovozavr;
  end;
CloseFile(f);
end;
 
{ TForm1 }
 
procedure TForm1.RichMemo1Change(Sender: TObject);
    var a: Integer;
begin
begin
if RichMemo1.Selstart>0 then
s:=UTF8RightStr(RichMemo1.Lines[RichMemo1.Lines.Count-1], 1);
//s:=redt1.Lines.Strings[redt1.Lines.Count-1][Length(redt1.Lines.Strings[redt1.Lines.Count-1])];
if (s<>' ') and (s<>'?') and (s<>'!') and (s<>'.') and (s<>',')  then
begin
slovo:=slovo+s;
end
else
begin
sl1:=slovo;
slovo:='';
proverka;
Label3.caption:=slovechko;
Label4.Caption:=slovechko2;
Label5.Caption:=slovechko3;
if tr=1 then
begin
Label6.Caption:='True';
tr:=0;
end
else
begin
Label6.Caption:='False '+inttostr(RichMemo1.selstart);
a:=RichMemo1.SelStart;
RichMemo1.SelStart:=a-(Length(sl1)+1);
r1[onn]:=a-(Length(sl1)+1);
RichMemo1.SelLength:=Length(sl1);
r2[onn]:=a;
RichMemo1.SetRangeColor(RichMemo1.SelStart, RichMemo1.SelLength, clRed);
RichMemo1.SelStart:=a+(Length(sl1));
RichMemo1.SetRangeColor(RichMemo1.SelStart, 10000, clBlack);;
onn:=onn+1;
end;
end;
Label1.caption:=slovo;
Label2.caption:=sl1;
end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
tr:=0;
RichMemo1.Text:='';
end;
 
procedure TForm1.RichMemo1KeyPress(Sender: TObject; var Key: char);
begin
  if Key=#08 then slovo:=Copy(slovo,1,Length(slovo)-2);
end;
 
 
 
end.