procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Not (key in ['0'..'9',#8]) then
    key := #0;
end;    //#8 是退格键，方便用户输入错误时好删除的。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Not (key in ['0'..'9',#8]) then
    key := #0;
end;
//以上程式碼用來控制使用者在Edit1中只能輸入0~9的數字和后退鍵    procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Length(Edit1.Text) <> 2 then
    begin
      ShowMessage('Edit1中的輸入值錯誤﹐須為兩位數的數字內容');
      Edit1.SetFocus;
    end;
end;
//以上程式碼用來控制使用者在Edit1中輸入的長度不等于2時﹐將焦點
//依舊停在Edit1上

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================