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:
Código:
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.