Operacion con listbox y memo

[ecfisa]

Hola rufo.
No tenés nada que agradecer; para tratar de ayudar y que nos ayuden estamos aquí .

A ver si esto es lo que buscas:

procedure TForm1.Button1Click(Sender: TObject);
var
  n1,n2: Double;
  Linea: Integer;
begin
  n1:= StrToFloat(ListBox1.Items[ListBox1.ItemIndex]);
  Linea:= Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
  try
   n2:= StrToFloat(Memo1.Lines.Strings[Linea]);
  except
   on E: EConvertError do
   begin
      ShowMessage('Ingrese un número real');
      Memo1.SetFocus;
      Exit;
   end;
  end;
  ListBox2.Items.Add(FloatToStr(n1)+' x '+FloatToStr(n2)+
     ' = '+ FloatToStr(n1*n2));
end;

Saludos.