salut

j'ai finit pour les integer et maintenan je veut mettre du boolean :
voila j'ai 2 edit " edi1 , edit2" et un boutton

j'ai mis ce bout de code c'est marche pas :

procedure TForm1.Button1Click(Sender: TObject);
var
a:boolean;
r:double;
begin
a:=BoolToStr(edit1.texte);
r:=a*2;
edit2.text:=floattostr(r)
end;
ben je veut entrer dans l'edit 1 un nombre comme 2.5 , et puis le multiplier par 2 et avoir le resultas finale dans edit2

par exemple : 2.5*2=5
svp aidez moi