procedure TForm1.Button1Click(Sender: TObject);
Var i : integer;
begin
for i := 0 to ComponentCount-1 do
begin
if (Components[i] is TEdit) then
(Components[i] as TEdit).Text:='Bonjour';
end;
end;