Solo letras y numeros en edit

[fidel]

Me refiero a cuando pongas código aquí en este foro, te quedaría así

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for i := 0 to ComponentCount -1 do
  if Components[i] is TEdit then
  TEdit(Components[i]).Text := '';
end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if ( StrScan('0123456789,'+chr(7)+chr(8), Key) = nil ) then Key := #0;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['a'..'z','A'..'Z',' ','á','é','í','ó','ú','ü','Á','É','Í','Ó','Ú','Ü', #7, #8, #13]) then
  begin
    Key := #0;
    Beep;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit10.Text := FloatToStr((StrToFloat(Edit2.text)+StrToFloat(Edit5.text)+StrToFloat(Edit8.text))/3)
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Edit11.Text := FloatToStr((StrToFloat(Edit3.text)+StrToFloat(Edit9.text)+StrToFloat(Edit6.text))/3)
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  ma:real;
begin
  ma:=StrToFloat(Edit2.text);
  if mathen
    ma:=StrToFloat(Edit5.Text);
  if mathen
    ma:=StrToFloat(Edit8.Text);
  Edit12.Text:= FloatToStr(ma);
end;

end.