Анализ текстового файла

var
  Form1: TForm1;
  i,k, l, h , f : integer;
  s: String;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button3Click(Sender: TObject);
begin
OpenDialog1.Execute;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    k:=0;
  l:=0;
   for i:=0 to Memo1.Lines.Count do
   begin
      k:=length(Memo1.Lines[i]);
        if checkbox1.checked=true  then
        begin
          S:=Memo1.Lines[i];
          f:=0;
          for h:=1 to length(S) do
          begin
            if S[h]=' ' then
            f:=f+1;
          end;
            k:=k-f;
            end;
             l:=l+k;
          end;
 
       Edit1.Text:=FloatToStr(l);
       end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
memo1.Lines.Clear;
end;
 
end.