Pues no sé si he entendido pero creo que bastaría algo como esto:
Código Delphi
[-]
procedure TForm1.Suma1Click(Sender: TObject);
var
a,b,r: real;
begin
a:= StrToFloat( Edit1.Text);
b:= StrToFloat( Edit2.Text);
r:= a+b;
Listbox1.Items.Add(Edit1.Text + ' + ' + Edit2.Text + ' = ' + FloatToStr(r));
end;
// Saludos