[Delphi] edit에 숫자만 입력하기

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
	if Key in ['0'..'9', #25, #08, #13] then
	else
	begin
		Key := #0;
		ShowMessage('숫자만 입력하세요');
	end;
end;