Como multiplicar dos memos

[[Caral]]

Hola
Al ser texto si esta vacío dara un error, para eso es mejor decirle que si esta vacio que no haga nada.
No se necesitan declarar variables se puede hacer directo.

Código Delphi [-]
procedure TFacturacion.Memo3Change(Sender: TObject);
begin
    If Memo3.Text = '' then
    begin
    // nada
    end
    else
    Memo4.Text := FloatToStr(StrToFloat(Memo2.Text) * StrToFloat(Memo3.Text));
end;

Saludos