Ввод в Edit

[roxy7]

Здравствуйте! Как сделать, чтобы вводить числа и знаки можно с помощью мышки, нажимая на кнопки самой формы. Этим способом могу сделать ввод только в один Edit, например:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'а';
end;

А в несколько Edit(ввод в каждый Edit)-я не знаю, как. Подскажите?

[roxy7]

Простите, вводить не только числа и знаки, но и буквы.

[Кольша]

Edit1.Text:=Edit1.Text+'а';
Edit2.Text:=Edit2.Text+'а';
...
Edit9.Text:=Edit999.Text+'а';

или

var
i:integer;
begin
for i:=1 to сколько едитов do
TEdit(findcomponent('Edit'+inttostr(i))).Text:=TEdit(findcomponent('Edit'+inttostr(i)))+'а';