Delphi. Проверка введенного кода

[Silverstone]

Позиционная система кодирования информации. Необходимо провести проверку кода на изменение. Типа ввели признаки, они классифицируются и выводятся в Memo.
Если в Memo изменили полученный код, то должна выйти "ошибка, код не совпадает".

Может кто проверку эту помочь сделать?
У меня не получается провести проверку ( стоит на Button3)

[Silverstone]

поможет кто? Маленькую часть работы прошу отредактировать

[Stilet]

Проект не смотрю, но посоветую вот что: Откуда берется данные в Мемо? Запихивай их копию в строку. А после проверяй

if s<>Memo.Lines.Text then данные  в s и мемо не совпадают

s:string - содержит изначальные данные, предназначающиеся для Мемо.
Идея понятна?

[Silverstone]

практически. Но, скорее всего, я так и делал себе...

I:=0;

  found :=false;
  while (i< memo1.Lines.Count) and (not found) do
  begin
    j:=1;
    while (memo1.Lines[i][j]<>'0') and (j<length(memo1.Lines[i])) and (not found) do
    begin
      if trystrtoint(memo1.lines[i][j],p) then found:=true;
      if not found then inc(j);
    end;
    if not found then inc(i);
  end;
  v:='';
  l:=0;
  if found then
  begin
    v:=copy(memo1.Lines[i],j,3);
    if TryStrToInt(v,p) then l:=l+strtoint(v);
    v:=copy(memo1.Lines[i],j+4,2);
    if TryStrToInt(v,p) then l:=l+strtoint(v);
    v:=copy(memo1.Lines[i],j+7,2);
    if TryStrToInt(v,p) then l:=l+strtoint(v);
    v:=copy(memo1.Lines[i],j+10,2);
    p:=0;
    TryStrToInt(v,p);
    if (round((l)/5*10)-5)<>p then
   Memo1.Lines[i]:=Memo1.Lines[i]+'ОШИБКА ВВОДА';
  end;

[Silverstone]

Ну что, поможет то?