1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

//... 
  sUndo : String; 
//... 
procedure TForm1.Edit1Change(Sender: TObject); 
var PosCur : Integer; 
    s : string; 
    i : Integer; 
const MAX = 999; 
      MIN = 200; 
begin 
  try 
    s := Edit1.Text; 
    if s = '' then 
      exit; 
    PosCur := Edit1.SelStart;//falls Fehler, merken 
    i := StrToInt(s);//Wenn Fehler dann >> except 
    //Wenn 
    if (s[1] = '-') or 
       (i > MAX) or 
       ((Length(s) = 3) and (i < MIN)) then 
      raise Exception.Create('');//Exception auslösen >> except 
    sUndo := Edit1.Text; 
    except 
      showmessage('Nur Werte zwischen '+IntToStr(MIN)+' und '+IntToStr(MAX)+' erlaubt!'); 
      Edit1.Text := sUndo;//Edit zurücksetzen 
      if Length(s) > Length(sUndo) then 
        PosCur := PosCur-1; 
    end; 
  Edit1.SelStart := PosCur;//Cursor an alte Position setzen 
end; 

procedure TForm1.Edit1Enter(Sender: TObject); 
begin 
  sUndo := Edit1.Text;//wird in OnChange benötigt 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  TForm1 = class(TForm)
  ...
  private
    { Private-Deklarationen }
    FEdit1WindowProc: TWndMethod;
    procedure Edit1WndProc(var Message: TMessage);
  ...
  end;					

1:
2:
3:
4:
5:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FEdit1WindowProc := Edit1.WindowProc;
  Edit1.WindowProc := Edit1WndProc;
end;					

1:
2:
3:
4:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Edit1.WindowProc := FEdit1WindowProc;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Edit1WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_PASTE then
  begin
    // Mit Clipboard.AsText kommst an den Inhalt der Zwischenablage
  end else
    FEdit1WindowProc(Message);
end;