var
  i:Integer;
  s:string;
begin
  s:=edit1.Text;
  for i := 1 to length(s) do
  begin
    if i = 1 then
    begin
      if s[i] in ['0'..'9'] then
        ShowMessage('第一個字須為英文字母');
    end;
    if not (s[i] in ['0'..'9']) then
    begin
      ShowMessage('第2至第10個字必須是數字');
      exit;
    end;
  end;

 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Length(Edit1.Text) = 0 then
  begin//²Ä¤@½X¶È¯à¿é¤J­^¤å¦r
    if not (Key in['A'..'Z', 'a'..'z']) then
      Key:=#0;
  end
  else if Length(Edit1.Text) in[1..9] then
  begin //¤G¦Ü¤E½X¶È¯à¿é¤J¼Æ¦r
    if not (Key in['0'..'9']) then
      Key:=#0;
  end
  else //¶W¹L¤Q½X¤£¯à¦A¿é¤J¤F
    Key:=#0;
end;

引言: 可以在keypress中限制輸入的字元唷^_^

 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Length(Edit1.Text) = 0 then
  begin//²Ä¤@½X¶È¯à¿é¤J­^¤å¦r
    if not (Key in['A'..'Z', 'a'..'z',#8]) then
      Key:=#0;
  end
  else if Length(Edit1.Text) in[1..9] then
  begin //¤G¦Ü¤E½X¶È¯à¿é¤J¼Æ¦r
    if not (Key in['0'..'9',#8]) then
      Key:=#0;
  end
  else //¶W¹L¤Q½X¤£¯à¦A¿é¤J¤F
    Key:=#0;
end;

忙盲茫