[DELPHI] ACEITAR APENAS NÚMEROS

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

begin
If not( key in['0'..'9',#8] ) then
  begin
    beep;
     key:=#0;
  end;
end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】