Ayuda por favor...

[BuRtOn]

Saludos amigo, gracias punk por tu respuesta, pero lo que trato de hacer es tratar de insertar determinados datos para que se impriman en un botton, osea que inserte los numeros, el primero y el segundo voy al menu y selecciono la operacion deseada, ya sea suma,resta,division,multiplicacion, despues de seleccionar la operacion voy hacia el botton de resultado doy click sobre el y que me imprima el resultado....recordar que en el menu tengo programado cada operacion, por ejemplo asi tengo el de la suma:

procedure Tfrmsegundo.icoSumaClick(Sender: TObject);
var x,y,r1:real;
begin
x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
r1 := (x+y);
end;

asi es con todas las otras operaciones solo que cambia el r1,por r2, asi sucesivamente, ahora lo que nesecito es que el botton me arroje el resultado amigo, eso es lo que no puedo hacer,mira como tengo el botton:

procedure Tfrmsegundo.Button1Click(Sender: TObject);
var r1,r2,r3,r4 :real;
begin
Button1.Caption := FloatToStr(r1);
Button1.Caption := FloatToStr(r2);
Button1.Caption := FloatToStr(r3);
Button1.Caption := FloatToStr(r4);
end;
end.

Gracias.