Подсчёт кол-ва буквы "А" в слове

[ac1d_buRn]

написал программку для подсчёта в слове букв "А", но работает ток в консоли:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var text:string;
    rez,kol,i,n,k:integer;
begin
  writeln('Vvedite text: ',Text); readln(Text);
  k:=length(text);
  kol:=0;

 for i:=1 to k do
 if text[i]='a' then
      begin
        kol:=kol+1;

      end;
    rez:=kol;
    writeln('bukv A - ' ,rez);
   readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

Пытался сделать её же на форме(http://s50.radikal.ru/i128/0910/a8/4c4e924f80f7.gif), но выдаёт ошибку: "[Warning] Unit1.pas(35): For loop control variable must be simple local variable"

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
var text:string;
    rez,kol,k:integer;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer; 
    begin

  k:=length(text);
  for i:=1 to k do
    if edit1.Text[i]='a' then
      begin
        kol:=kol+1;

      end;
    rez:=kol;

 if rez > 0 then
    label1.Caption:='Bukv "A"'+inttostr(rez)
  else label1.caption:='V etom slove net bukvi "a"';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  kol:=0;
end;
end.

Компилятор глотает, но при вводе слова "karandaw" пишет 2 буквы А...

[RamireZ]

Сообщение от ac1d_buRn

написал программку для подсчёта в слове букв "А", но работает ток в консоли:
Пытался сделать её же на форме(http://s50.radikal.ru/i128/0910/a8/4c4e924f80f7.gif), но выдаёт ошибку: "[Warning] Unit1.pas(35): For loop control variable must be simple local variable"

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
var text:string;
    rez,kol,k:integer;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer; 
    begin

  k:=length(text);
  for i:=1 to k do
    if edit1.Text[i]='a' then
      begin
        kol:=kol+1;

      end;
    rez:=kol;

 if rez > 0 then
    label1.Caption:='Bukv "A"'+inttostr(rez)
  else label1.caption:='V etom slove net bukvi "a"';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  kol:=0;
end;
end.

Компилятор глотает, но при вводе слова "karandaw" пишет 2 буквы А...

Изменил ваш код чуть чуть-все работает

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  text:string;
    rez,kol,k:integer;


implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
kol:=0;
k:=length(edit1.Text);
  for i:=1 to k do
    if edit1.Text[i]='a' then
      begin
        kol:=kol+1;
      end;
    rez:=kol;
 if rez > 0 then
    label1.Caption:='Bukv "A"'+inttostr(rez)
  else label1.caption:='V etom slove net bukvi "a"';
end;

Во первых, перенес объявление глобальных переменных из Implementation
и изменил объявление переменной k(k:=length(edit1.Text);