Проблема с ошибками в делфи

[nooonname]

В программе все работает в общем.
Но, выдает ошибку на каждый введеный символ в memo2.
В программе есть два поля memo1 и memo2.
memo1 - сюда загружается задание.
memo2 - сюда я ввожу то, что дано в задании.
Например, по заданию, мне нужно просто напечатать букву А. Но я пишу букву А и мне выходит ошибка. Ошибка и должна выходить, я ее сам сделал. Но не могу сделать так, чтобы если в memo1 дана буква А, то в memo2 можно печатать только букву А, иначе, ошибка.
Задания загружаются в виде текстовых файлов. (opendialog).

Разъясните пожалуйста поподробнее как это сделать. Приведите пример кода. Код программы есть. И я вроде понял в чем ошибка. Ошибка в коде который ошибки обрабатывает. Но что там не так? Где ошибка?

[stck]

Но не могу сделать так, чтобы если в memo1 дана буква А, то в memo2 можно печатать только букву А, иначе, ошибка.
Задания загружаются в виде текстовых файлов. (opendialog).

В мемо1 на событие onKeyPress/либо на change, считывается последний введенный символ.
Этот символ добавляется в какой либо массив.
Далее.
На мемо2 ставишь событие OnKeyPress/Change (кому как удобнее). В этом событии последний символ Line'а у мемо2 проверяется на совпадение с массивом. Если нет - удаляется, затем показываешь ошибку.

[nooonname]

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

В мемо1 на событие onKeyPress/либо на change, считывается последний введенный символ.
Этот символ добавляется в какой либо массив.
Далее.
На мемо2 ставишь событие OnKeyPress/Change (кому как удобнее). В этом событии последний символ Line'а у мемо2 проверяется на совпадение с массивом. Если нет - удаляется, затем показываешь ошибку.

А можно пожалуйста пример кода привести? А то до меня вообще не доходит как это все сделать.

[stck]

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Memo2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  a:array[1..9999] of string; {массив с символами}
  s,v:string;
  i:integer=1;
  x,z,j,c,count:integer=0;
implementation

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
begin
for i := 0 to 9999 do    //очистка
a[j]:='';                     //массива
end;

procedure TForm4.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  for c:=0 to 99 do             //для строк с индексом от 0 до 99 сделать
  begin         
    s:=memo1.Lines.ValueFromIndex[c]; //s равно строке с текущим индексом.
    for x := 1 to length(s)-1 do    //для каждого символа в последовательности
    begin
      s:=copy(s,x,1);              // s равен символу
    for j:=0 to 9999 do           // проверяем массив
      begin
        if s=a[j] then               //если значение s есть в массиве,то
          inc(count);                // увеличиваем счетчик
      end;
    if count=0 then a[i]:=s;      //если счетчик равен нуля то добавляем элемент
    end;
  end;
end;


procedure TForm4.Memo2Change(Sender: TObject);
begin
  for c:=0 to 99 do
  begin
    s:=memo2.Lines.ValueFromIndex[c];
    for x := 1 to length(s)-1 do
    begin
      s:=copy(s,x,1);
      for j:=0 to 9999 do
      begin
        if s=a[j] then
          begin
            v:=memo2.Lines.valuefromindex[c];
            for z := 1 to length(v) do
              if s=v[z] then
                delete(v,z,1);
                memo2.Lines.ValueFromIndex[c]:=v;
          end;
      end;
    end;
  end;
end;

[stck]

Вот то, что получилось у меня. Здесь реализованы как change, так и keypress.

[nooonname]

stck,
спасибо большое, но не все работает.
Только, трудно мне дается делфи и не пойму теперь после какой строчки давать ошибку, когда введен, не тот символ который дан в memo1. Блин.

И делфи мне выводит ошибку на x,z,j,c,count:integer=0;
И, когда убираешь ноль, на if s=a[j] then

[Stilet]

Правильно выдает. Нужно так:

 x,z,j,c:integer;count:integer=0;

Нельзя в Делфи много переменок сразу инициализировать.

И, когда убираешь ноль, на if s=a[j] then

Какими словами?

[nooonname]

Вот, когда здесь x,z,j,c,count:integer=0 убираешь ноль
выдает ошибку на if s=a[j] then

[nooonname]

И сейчас даже, сделал как сказал Stillet, там же ошибка, в условии.
А ошибка типа, If s=a[j] then переменная должна быть простого локального типа. Что то как то так, не очень дружу с английским.

И здесь, for i:=0 to 9999 do точно такая же ошибка

[stck]

Извиняюсь, за нерабочий код. Не правильно по суди обрабатывал. Отправил решение в скайп