如何 檢查 TEdit 元件 內是否為 英文字串

------
Delphi 6
postgresql 8.1.4

[code delphi]
procedure TForm1.Button3Click(Sender: TObject);

function DO_CHECK(S: string): Boolean;
const
ALLOW_CHAR: set of Char = ['A'..'Z','a'..'z',#$20];
var
I: Integer;
begin
Result := True;
for I := 1 to Length(S) do
begin
if S[I] in ALLOW_CHAR then Continue;
Result := False;
Break;
end;
end;

begin
if DO_CHECK(Edit1.Text)
then ShowMessage('TRUE')
else ShowMessage('FALSE');
end;

[/code]

===================引 用 vmp 文 章===================
如何 檢查 TEdit 元件 內是否為 英文字串

  在 TEdit 元件 的 KeyPress 部分 
if ( Key in ['a'..'z','A'..'Z',' '] ) = False 就可以判斷 TEdit 內輸入的是否為英文字母

------
Delphi 6
postgresql 8.1.4