Stopping Certain Keys in an Edit Box
===

So i have code already. But when it runs it doesn't allow the backspace key, I need it to allow the backspace key and remove the space bar as I don't want spaces.

    procedure TForm1.AEditAKeyPress(Sender: TObject; var Key: Char);
    var s:string;
    begin
    s := ('1 2 3 4 5 6 7 8 9 0 .'); //Add chars you want to allow
    if pos(key,s) =0 then begin Key:=#0;
    showmessage('Invalid Char');
    end;

Need help thanks :D