загвоздка с Едитом

[4321]

ребят у меня такой вопрос я незнаю ваще возможно ето или нет так вот можно сделать так чтоб например если ввел в едит 12345678 то он становится ридонли тру если чтолибо другое то тогда фалс??

тоисть после ввода 12345678 его нельзя было изминить

[Квэнди]

событие onkeypress onkeydown onkeyup выбирайте по душе

[4321]

А КОД КАКОЙ В ЭТОМ И СОСТОИТ ПРОБЛЕМА

[Квэнди]

unit Unit26;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
const s='111';
type
  TForm26 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form26: TForm26;

implementation

{$R *.dfm}

procedure TForm26.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
edit1.Enabled:=not(edit1.Text+key=s);
end;

end.

соответственно вместо приведенной константы, с которой сравнивается строка можно использовать любую строку