procedure TForm1.Button1Click(Sender: TObject);
Var St:String;
i:integer;
begin
St:='delphipage';
Label1.Caption:=''; //Efface le contenu du label
for i:=1 to Length(St) do
Label1.Caption:=Label1.Caption+' '+St[i];
end;