Operacion con listbox y memo

[rufo]

Hola amigos buenas tardes, espero que me ayuden resulta que quiero multiplicar el contenido de un memo y un listbox y que el resultado me aparesca en otro listbox, les anexo mi programacion

procedure TPedidos.ListBox3Click(Sender: TObject);
var
 no3,no4:real;
begin
 no3:=strtofloat(memo1.Lines.Text[1]);
 no4:=strtofloat(listbox3.Items.Text[2]);
 listbox1.Items.Text:=formatfloat('0.00',no3*no4);

end;

Asi como esta el codigo cuando le doy clic en el listbox3 me hace la multiplicacion por el numero que esta entre los corchetes entonces es ahi mi duda como decirle al programa que me multiplique lo que tenga en el memo y en listbox y el resultado me aparesca en el otro listbox o que estoy haciendo mal, de antemono gracias.