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
end
else
Memo4.Text := FloatToStr(StrToFloat(Memo2.Text) * StrToFloat(Memo3.Text));
end;
Saludos